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Abstract 


Naval  Aviators  requ  , .  ior  knowledge  of  the  time  and  location  of  astronomical 
phenomena  in  order  to  properly  plan  and  execute  combat  and  training  operations  during 
the  hours  of  darkness  using  Night  Vision  Devices  (NVD's).  This  thesis  presents  a 
computer  application  of  illumination  prediction  algorithms  which  predict  the  time  of 
selected  astonomical  phenomena.  This  computer  program  is  platform  independent  (given 
the  proper  libraries),  event-driven,  object-oriented,  and  utilizes  a  Graphical  User  Interface 
(GUI).  Using  this  application,  operators  in  tie,  will  be  able  to  determine  the  time  of 
selected  phenomena  and  the  quantity  of  illumine  »n,  measured  in  Lux,  for  a  given  time 
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I.  INTRODUCTION 


A.  BACKGROUND 

Combat  operations  are  increasingly  conducted  during  the  hours  of  darkness. 
Operations  at  night  give  a  decided  tactical  advantage  to  the  technologically  advanced 
force  possessing  night  vision  devices  (NVD's).  Helmet  mounted  NVD's  used  by  aviators 
are  limited,  however,  to  the  simple  amplification  of  ambient  light.[l]  Operations 
involving  NVD's  must  be  planned  to  coincide  with  appropriate  illumination.  Since 
NVD's  are  passive,  i.e.  they  merely  magnify  available  light,  they  require  a  minimum 
amount  of  illumination  to  operate.  Additionally,  since  they  magnify  light  on  the  order  of 
10,000  times  (AN/PVS5:  XI 0,000  gain,  AN/AVS6:  X25,000  gain)[l] ,  there  can  not  be 
too  much  illumination  or  the  NVD's  will  reach  saturation  and  shutdown  to  protect  their 
circuitry.  Battlefield  planners  require  a  method  for  determining  the  time  and  location  of 
astronomical  phenomena  such  as  sun  rise,  sun  set,  moon  rise,  moon  set,  and  for 
determining  the  amount  of  light  available  from  these  phenomena.  Previously,  this 
information  was  available  in  tabular  form  in  the  Nautical  Almanac  or  from  a  computer 
program  called  LITELEVL. 

LITELEVL  is  written  in  the  ubiquitous  GWBASIC.  It  is  completely  text  based  and 
runs  only  on  MSDOS  compatible  personal  computers.  [2]  LITELEVL  is  not  optimized 
for  any  parameters  and  thus  has  a  response  time  of  many  seconds  for  a  single  line  of  a 
planning  calendar  output. 

B.  OBJECTIVES 

This  thesis  will  produce  an  improved  application  of  the  tested  illumination  prediction 
algorithms.  This  application,  called  MOONLITE  to  differentiate  it  from  its  predecessor, 
has  the  following  properties: 
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•  Platform  independent.  With  proper  libraries  the  source  code  may  be  compiled 
to  run  under  Microsoft  Windows™,  Microsoft  Windows  NT™,  IBM  OS/2™, 
DOS™  (graphics  mode),  DOS™  (text  mode),  UNIX  Motif,  and  (in  the  future) 
Apple  Macintosh™. 

•  Graphical  User  interface  featuring  pull  down  menus  and  point-and-shoot  dialog 
boxes. 

•  Event-driven  architecture. 

•  Object-oriented  design  for  ease  of  maintenance  and  upgrading. 

•  Ability  to  store  multiple  geographic  locations  for  future  analysis. 

•  Increased  speed. 

•  Increased  accuracy. 

C.  SUMMARY  OF  THESIS 

1.  Night  Imaging  Considerations 

This  section  investigates  the  basic  concepts  of  illumination  and  illuminance.  It 
presents  a  short  tutorial  on  the  nature  of  light,  the  movement  of  the  heavenly  bodies,  and 
the  effect  of  meteorology  on  local  illuminance.  It  also  examines  the  effects  of  altitude, 
geography,  and  human  interpretation  on  the  accuracy  of  predicted  astronomical  events. 

2.  Prediction  Algorithms 

Two  separate  algorithms  are  used  in  MOONLITE.  They  are  referred  to  as  the 
"fast"  algorithm  and  the  "accurate"  algorithm.  This  chapter  examines  both  algorithms.  It 
reviews  their  relative  strengths  and  weaknesses  and  briefly  explores  their  coding. 

3.  Testing  and  Validation 

Prior  to  its  release  to  the  subordinate  units  of  the  Department  of  Defense, 
MOONLITE  must  be  tested  and  validated  by  the  United  States  Naval  Observatory. 
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Initial  testing  was  accomplished  during  coding.  This  chapter  briefly  introduces  the 
benchmarks  by  which  the  data  is  judged.  Rigorous  testing  will  be  accomplished  at  the 
Naval  Observatory. 

4.  User  Interface 

The  user  interface  is  perhaps  the  most  important  part  of  a  program.  Regardless  of 
the  accuracy  or  efficiency  of  the  underlying  code,  the  user  will  either  use  or  not  use  a 
program  dependent  upon  the  user  interface.  A  great  deal  of  time  and  effort  was  devoted 
to  making  MOONLITE's  user  interface  intuitive,  friendly,  and  efficient.  This  chapter 
examines  the  nuances  of  the  user  interface,  detailing  design  considerations  and  decisions 
where  necessary. 

5.  Coding  Considerations 

The  coding  of  a  program  determines  its  accuracy  and  its  efficiency.  This  chapter 
examines  the  general  coding  of  the  program.  Class  structures  and  data  structures  are 
examined  in  this  chapter.  Coding  decisions  and  concerns  are  addressed,  as  are  logic  and 
program  flow. 

6.  Future  Work  Needed  /  Upgrades 

This  chapter  outlines  future  work  which  will  be  accomplished  by  the  author  at  the 
next  duty  station.  In  addition,  ideas  for  future  enhancements  are  discussed. 

7.  User's  Manual  (Appendix) 

This  appendix  is  designed  to  serve  as  a  user’s  manual  for  MOONLITE.  It  may  be 
removed  from  the  attached  material  and  distributed  with  MOONLITE  to  the  end  user.  It 
is  designed  to  be  concise  enough  to  allow  a  person  with  limited  technical  background  to 
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install  and  use  MOONLITE.  It  describes  the  input  and  output  requirements  in  addition  to 
presenting  the  reader  with  an  easy  to  follow  tutorial  for  anticipated  actions. 
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II.  NIGHT  IMAGING  CONSIDERATIONS 
A.  THE  NATURE  OF  UGHT 

Light,  as  we  will  use  the  term  here,  is  the  portion  of  the  electromagnetic  spectrum 
which  is  visible  to  the  human  eye.  The  electromagnetic  spectrum  spans  all  frequencies 
from  sub-aural  (less  than  20  Hz)  to  cosmic  rays  (10^2  Hz)  and  beyond.  Electromagnetic 
energy  with  a  wavelength  between  400  and  700  nanometers  is  visible  to  humans.  We  call 
this  range  the  visible  spectrum.  Immediately  below  the  human  threshold  of  vision  is  the 
near  infrared  regional] 

Helmet  mounted  night  vision  devices  used  by  aviators  intensify  available  light.  More 
specifically,  they  intensify  he  light  which  is  reflected  from  an  object.  The  amount  of 
light  reflected  from  an  object  is  called  luminance.  An  object’s  luminance  is  a  function  of 
how  much  light  is  striking  the  object,  the  illuminance,  <uid  the  reflectivity  of  the  object. 
With  the  same  illuminance,  a  light  object  such  as  snow  will  have  a  greater  luminance  than 
a  dark  object  such  as  an  asphalt  road.  Prediction  of  night  vision  device's  efficiency  is 
confined  to  the  prediction  of  the  illuminance  of  all  objects  in  a  certain  area  regardless  of 
their  reflectivity  and  resultant  luminance.  Illuminance  is  expressed  in  Lumens  per  square 
meter,  or  Lux.  One  Lux  is  equal  to  0.0929  foot-candles.  Table  1  shows  the  relative 
illuminance  of  various  sky  conditions.[l] 
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TABLE  1.  ILLUMINANCE  LEVELS  OF  VARIOUS  SKY  CONDITIONS 


Sky  Condition 

Approx.  Illuminance  (Lux) 

Direct  Sunlight 

1-1.3x105 

Full  Daylight  (not  direct) 

1  -  2  x 104 

Overcast  Day 

103 

Very  Dark  Day 

102 

Twilight 

10 

Deep  Twilight 

1 

Full  Moon 

io-i 

Quarter  Moon 

lO-2 

Moonless,  Clear  Night  Sky 

10-3 

Moonless,  Overcast  Night  Sky 

10-4 

Solar  light,  light  emanating  from  stars,  the  moon,  and  other  solar  phenomena,  is 
principally  comprised  of  wavelengths  outside  the  visible  spectrum.  For  this  reason.  Night 
Imaging  Devices  are  designed  with  their  principle  sensitivity  outside  of  the  visible 
spectrum  and  more  into  the  near  infrared  spectrum.  Figure  1  illustrates  the  relative 
wavelengths  of  human  visible  spectrum  with  that  of  the  night  sky  and  two  modem  night 
vision  devices.[l] 


6 


400  4S0  500  550  600  650  700  750  800  850  900  950 

Wavelength  (nanometers) 

Figure  1.  Comparison  of  visible  spectrum  versus  night  vision  devices 


The  third  generation  AN-AVS6  Night  Vision  Goggles  (NVG)  are  sensitive  in  an  area 
well  outside  of  the  human  visual  spectrum.  This  greatly  enhances  their  ability  to  amplify 
ambient  light  at  night,  but  it  hinders  our  ability  to  predict  their  efficiency  as  discussed  in 
the  next  section. 

B.  PROBLEMS  WITH  ILLUMINANCE  PREDICTION 
1.  Spectrum  Selection 

Modem  illumination  algorithms  are  designed  to  predict  illuminance,  the  amount  of 
visible  light  present  There  have  been  no  definitive  studies  to  date  on  the  amount  of  light 
presented  at  the  surface  of  the  earth  during  the  hours  of  darkness  in  a  spectrum  other  than 
that  of  the  visible  spectrum.  In  practice,  the  United  States  Military  assumes  that  the 
illuminance  in  the  visible  spectrum  is  directly  proportional  to  the  amount  of  light  in  the 
near  infrared  spectrum.  [3] 
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2.  Atmospheric  Attenuation 

Since  all  light  reaching  tire  surface  of  the  earth  from  the  cosmos  must  pass  through 
the  atmosphere,  the  composition  of  the  atmosphere  has  a  measurable  effect  on  the 
attenuation  of  that  light. 

The  atmosphere  is  the  most  dense  at  the  surface  of  the  earth.  As  one  increases  in 
altitude  the  density  of  the  atmosphere  decreases.  With  this  decrease  in  density,  the 
attenuation  effect  of  the  atmosphere  is  also  decreased.  For  computational  purposes,  the 
atmosphere  is  considered  homogenous  to  an  altitude  of  8.46  kilometers.  Using  this 
simplification  does  not  significantly  alter  the  results  of  illuminance  prediction.  [4] 

3.  Altitude  Discrepancy 

The  computation  of  astronomical  phenomena  is  complicated  at  altitudes  non¬ 
coincident  with  the  surface  of  the  earth.  At  high  altitudes  the  atmosphere  does  not 
attenuate  sunlight  or  moonlight  to  the  same  degree  to  which  it  does  at  sea  level.  The 
apparent  rise  and  set  of  the  heavenly  bodies  is  offset  at  altitude.  A  person  on  the  surface 
of  the  earth  may  observe  sun  set  at  the  same  time  a  person  in  a  jet  at  30,000  feet  can  still 
view  the  entire  disc  of  the  sun. 

Generally  accepted  phenomena  such  as  civil  and  nautical  twilight  are  also  offset  at 
altitude.  Civil  and  nautical  twilight  are  defined  as  the  time  at  which  the  sun  is  six  and 
twelve  degrees,  respectively,  below  the  horizon.  As  with  sun  set,  there  will  be  more  light 
at  altitude  during  twilight  than  their  would  be  on  the  surface  of  the  earth.[3] 

4.  Geographic  Limits 

Although  geographic  limits  may  seem  trivial,  they  still  affect  the  prediction  of 
astronomical  phenomena.  Astronomical  phenomena  is  predicted  relative  to  a  plane  which 
is  assumed  to  be  tangent  to  the  surface  of  the  earth  at  the  observer's  latitude  and  longitude 
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at  sea  level.  This  assumption  obviates  the  problems  of  a  person  standing  on  a  mountain 
or  in  a  valley  and  thus  observing  astronomical  phenomena  at  a  different  time. 

Illuminance  is  predicted  assuming  that  the  earth  is  visible  to  the  source  of 
illumination  at  the  desired  moment  in  time.  For  example,  if  a  full  moon  has  just  risen  and 
is  currently  only  ten  degrees  above  the  horizon,  a  person  on  one  side  of  a  mountain  will 
be  fully  illuminated.  A  person  on  the  other  side  of  the  mountain  would  still  be  in 
darkness.  Shadowing  and  obscuration  is  not  addressed  by  the  prediction  algorithms.  It  is 
incumbent  upon  the  user  of  the  algorithms  to  understand  the  limitations  of  the 
predictions. 

5.  Meteorology 

Cloud  formations,  fog,  smog,  and  other  obscurants  in  the  sky  will  attenuate  the 
amount  of  light  impinging  upon  the  earth  from  celestial  sources.  It  is  possible  to  account 
for  this  attenuation  in  a  computer  program,  but  it  requires  the  end  user  to  determine  the 
quantity  of  attenuation.  Since  most  end  users  will  not  have  equipment  capable  of 
measuring  cloud  density,  MOONLITE  does  not  allow  the  user  to  apply  an  attenuation 
scaling  factor.  Aviators  must  use  the  experience  gained  during  their  NVG  qualification  to 
determine  the  amount  of  NVG  degradation  due  to  meteorology. [1] 

6.  Illuminance 

Illuminance,  as  described  above,  refers  to  the  amount  of  light  being  shed  on  an 
object.  MOONLITE  predicts  the  amount  of  light  available  from  astronomical  sources. 

An  NVG  user,  though,  may  have  artificial  light  available  from  a  nearby  city  or  town,  or 
from  battle  field  illumination,  burning  oil  wells,  etc.  It  is  impossible  for  a  predictive 
program  to  consider  the  myriad  of  artificial  sources  of  light  that  might  be  present.  Again, 
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f: 


the  NVO  user  must  use  his  or  her  experience  to  determine  die  amount  of  light  available 
for  NVG  use. 
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m.  ALGORITHMS 


A.  FAST  VERSUS  ACCURATE 

MOONLITE  uses  two  different  sets  of  algorithms  for  determining  celestial 
phenomena.  The  fist  set  of  algorithms  is  referred  to  as  the  fast  algorithms  and  are 
iterative  in  nature.  These  algorithms  are  found  in  the  United  States  Naval  Observatory 
Circular  No.  171.  The  fast  algorithm's  most  glaring  shortcoming  is  that  it  diverges  at 
latitudes  above  60  degrees  north  or  south.  [5]  This  divergence  can  manifest  itself  as  a 
complete  miss  of  a  phenomena  such  as  sun  rise.  A  more  subtle  error,  however,  could 
occur  where  the  algorithm  produced  output  that  although  flawed,  appeared  to  be  correct 
The  fast  algorithms  are  not  used  for  prediction  above  60  degrees  north  or  south  latitude. 

The  other  set  of  algorithms  is  referred  to  as  the  accurate  algorithms.  The  accurate 
algorithms  are  currently  being  perfected  at  the  United  States  Naval  Observatory.  These 
algorithms  are  interpolative  in  nature  and  will  produce  accurate  output  at  any  location  on 
the  earth.  There  is  a  trade  off  in  processing  time  between  the  two  algorithms.  The 
accurate  algorithms  take  substantially  longer  to  compute  an  event  than  the  fast 
algorithms.  [3].  Although  an  advance  copy  of  the  accurate  algorithm  has  been  obtained 
prior  to  the  completion  of  this  thesis,  they  have  not  been  implemented  due  to  current 
instabilities  which  are  being  corrected  by  the  Naval  Observatory.  MOONLITE  was 
written  to  facilitate  the  accurate  algorithms  as  soon  as  they  are  available.  The  remainder 
of  this  thesis  will  therefore  deal  with  the  fast  algorithms. 

B.  ACCURACY 

The  design  goal  of  the  fast  algorithm  was  to  identify  a  phenomena  within  0.5  degrees 
of  its  actual  azimuth  and  altitude.  The  maximum  temporal  error,  assuming  a  0.5  degree 
error  in  placement,  would  therefore  be  two  minutes.  The  temporal  values  are  relative  to 
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the  mean  time  of  the  selected  time  zone.  Each  time  zone  (with  variations  for  political  and 
geographic  anomalies)  is  fifteen  degrees  wide.  Phenomena  are  computed  using  the  time 
in  the  center  of  the  time  zone.  An  observer  can  expect  a  divergence  from  the  predicted 
times  relative  to  their  distance  from  the  center  of  the  selected  time  zone.  [3] 

Rounding  of  numbers  may  cause  discrepancies  larger  than  the  target  goals  in  some 
cases.  Consequently,  the  last  digit  of  angles  and  times  should  be  considered  uncertain. 

[3] 

Illuminance  is  given  in  Lux,  and  should  be  accurate  to  one  or  two  digits.  Due  to  local 
conditions  (artificial  light,  meteorology,  etc.)  the  calculated  illuminance  may  differ  from 
the  actual  illuminance  by  a  factor  of  10  or  more.[3] 

The  Moon's  apparent  phase  is  independent  of  Earth's  atmosphere,  but  approximations 
in  the  equations  for  calculating  it  may  produce  errors  of  one  or  two  units  in  the  computed 
quantity.[2] 

MOONLITE  was  coded  with  all  variables  and  constants  defined  as  "double",  thus 
internal  computer  "accuracy”  is  carried  out  to  64  bits  using  the  IEEE  real  standard.  This 
format  allows  representable  numbers  between  -2,147,483,648  and  2,147,483,647.[AJ 

C.  ALGORITHM  OVERVIEW 
1.  General 

The  fast  algorithm  is  presented  in  reference  [3].  The  algorithm  is  presented  in 
BASIC  and  FORTRAN.  In  order  to  make  MOONLITE  platform  independent,  it  was 
necessary  to  code  MOONLITE  in  C++.  Originally,  compiling  the  FORTRAN  code  and 
linking  it  into  a  C++  user  interface  was  contemplated,  but  this  approach  was  rejected  due 
to  possible  incompatibilities  in  multiple  platform  object  code. 
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The  FORTRAN  and  BASIC  code  was  converted  to  C++  code  for  inclusion  in 
MOONLITE.  To  aid  in  maintenance  and  debugging,  the  algorithms  are  designed  as  a 
separate  class  of  MOONLITE  named  fastalgorithm.  The  C++  code  for  fastalgorithm 
may  be  found  in  Appendix  A. 

2.  Coding  Considerations 

If  one  examines  the  original  BASIC  code  and  the  MOONLITE  code  for  the 
fast  algorithm  class,  one  will  notice  that  the  MOONLITE  fast  algorithm  class  does  not 
use  subroutines.  This  is  contrary  to  modem  modular  programming  technique,  yet  seemed 
advisable  for  MOONLITE.  Using  passive  profiling  techniques,  the  fast  algorithm  was 
identified  as  a  computationally  intensive,  and  thus  time  consuming,  component  of  the 
MOONLITE  program.  Since  the  algorithm  is  somewhat  linear  in  flow,  it  was  coded  to 
minimise  loop  iterations  and  subroutine  calls,  and  thus  maximize  runtime  efficiency.[7] 
By  removing  the  subroutines  and  placing  them  "in-line",  the  code  increased  in 
length  from  225  statements  to  233,  but  it  also  removed  49  GOTO  statements  and  20 
GOSUB  statements. 

Each  GOSUB  statement  would  cause  a  context  switch  with  attendant  overhead. 
The  GOTO  statement  in  GWBASIC,  the  language  MOONLITE's  predecessor  was  written 
in,  is  implemented  by  a  linear  search  algorithm.  MOONLITE  uses  structured 
programming  to  remove  the  GOTO  statements.  This  structured  technique  allows  the 
compiler  to  place  a  hard  coded  jump  address  in  the  machine  code  versus  an  iterative 
algorithm  which  takes  multiple  lines  of  machine  code  to  implement 

Where  possible,  code  was  hand  optimized  while  converting  from  BASIC  to  C++. 
For  example,  in  the  original  BASIC  code  are  the  following  lines: 

340  FOR  L- 1  TO  4  (I) 

350  ON  L  GOTO  370, 650, 650, 360 
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Meojmi 

37*M-.5*DT 

This  was  replaced  with: 


fcr0*L- l;L<-4;L++)(  0) 

tf(L— 4)  C- 347.11; 
lf((L—  l)|CL-4)){ 

■  -0.5  +  DT; 


i 

//code  to  BASIC  Ite  650  gm  hoc 

This  rewriting  of  die  BASIC  code  removes  four  GOTO  statements  and  replaces 
diem  with  two  IF  statements.  Since  die  GOTO  statements  cause  an  iterative  loop  of 
many  cycles  whereas  die  IF  statements  do  not,  the  latter  code  is  markedly  faster. 


14 


IV.  TESTING  AND  VALIDATION 


A.  TESTING 

1.  Preliminary 

During  the  translation  of  the  fast  algorithms  from  reference  BASIC  and 
FORTRAN  to  die  C++  code  of  MOONLITE,  constant  testing  was  performed  to  ensure 
parallel  results.  For  two  randomly  selected  cases,  the  BASIC  code  and  C++  code  was 
stepped  and  compared  line  by  line  to  ensure  matching  results  after  each  statement. 

Results  between  MOONLITE  and  LITELEVL  are  not  exact  Discrepancies  have 
beat  traced  primarily  to  the  way  the  two  languages  handle  the  trigonometric  functions. 
Discrepancies  manifest  themselves  as  a  difference  in  time  of  one  minute  or  less.  During 
initial  testing,  when  a  discrepancy  was  found  between  the  BASIC  handling  of  a  SIN 
function  and  die  C++  handling  of  the  function,  the  calculation  was  run  on  an  HP48SX 
calculator  and  on  MATLAB  V4.0  to  compare  results.  In  all  cases  the  results  of  the  HP 
calculator  and  of  MATLAB  matched  the  results  of  the  MOONLITE  C++  code.  Thus,  the 
MOONLITE  C++  code  is  considered  to  be  more  accurate  than  the  original  BASIC  code. 

Reference  [5],  table  A,  presents  test  cases  for  program  certification.  MOONLITE 
was  tested  locally  against  these  standards  and  found  to  be  within  one  minute  of  time  and 
within  0.5  degrees  to  all  parameters.  This  is  within  design  specification,  and  thus  shows 
that  MOONLITE's  C++  code  is  functioning  properly. 

2.  Final 

Prior  to  release,  MOONLITE  will  be  tested  against  the  United  States  Naval 
Observatory  test  suite.  The  Naval  Observatory  has  determined  a  number  of  test 
conditions  which  will  test  boundary  conditions  in  the  program.  These  boundary 
conditions  are  the  most  ill-conditioned  points  the  program  can  be  expected  to  handle.[3] 
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B.  VALIDATION 


Upon  completion,  MOONLITE  will  be  tested  at  the  Unites  States  Naval  Observatory 
by  the  Astronomical  Applications  Division.  After  successfully  completing  their  tests,  the 
program  will  be  validated  by  the  Observatory  for  use  by  the  Department  of  Defense. 
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V.  USER  INTERFACE 


A.  GENERAL 

There  were  four  main  criteria  envisioned  for  the  user  interface.  They  were: 

•  Must  be  relatively  intuitive 

•  Must  be  graphical 

•  Must  be  transportable 

•  Must  minimize  input  errors 

To  ensure  that  these  criteria  were  met,  MOONLITE  was  developed  in  Microsoft 
Windows  using  Borland  C++  version  4.0.  Standard  Windows  conventions  were  adhered 
to,  for  example,  the  upper  left  hand  comer  of  a  window  contains  a  control  box  which  will 
allow  the  user  to  minimize,  maximize,  move,  or  close  the  window.[8] 

B.  MENUS 

All  menus  are  standard  pull-down  menus  allowing  the  user  to  select  an  option  by 
clicking  on  that  option  with  the  mouse.  Menus  were  designed  as  "sticky"  menus,  i.e.  the 
user  does  not  have  to  hold  the  mouse  button  down  to  keep  the  menu  active.  Menus  may 
be  accessed  without  a  mouse  by  pressing  the  ALT  key  and  the  first  letter  of  the  menu 
choice.  For  example,  the  user  may  activate  the  FILE  menu  by  pressing  ALTJF. 

MOONLITE’s  menus  are  only  one  level  deep.  This  was  a  conscious  design  choice  to 
ensure  the  most  simplistic  and  thus  most  easily  understood  user  interface. 

C.  DIALOG  BOXES 

Almost  every  menu  choice  leads  to  a  dialog  box.  Each  dialog  box  contains  a  HELP 
button  which  will  activate  context  sensitive  help  for  that  dialog.  Currently,  context 


sensitive  help  is  disabled  during  research  into  die  portability  of  Microsoft  Windows  help 
resources. 


18 


VL  CODING  CONSIDERATIONS 


A.  LANGUAGE  CHOICE 

MOONLITE  was  written  in  Borland  C++  version  4.0.  This  language  was  chosen  for 
a  number  of  reasons.  First,  C++  is  the  most  ubiquitous  object-oriented  language  in  use 
today.  MOONLITE  was  written  using  object-oriented  techniques  in  order  to  facilitate 
future  maintenance  and  upgradability.  Second,  NAVAIR  has  expressed  interest  in 
interfacing  MOONLITE  with  TAMPS  (Tactical  Air  Mission  Planning  System)  and 
TAMPS  is  written  in  C++.  Third,  multiple  platform  libraries  were  available  for  C++. 
Borland's  product  was  chosen  as  development  suite  because  of  its  enhanced  development 
and  debugging  tools. 

B.  LIBRARIES 

ZAPP  libraries  were  purchased  from  Inmark  corporation  for  the  development  of 
MOONLITE.  Inmark  currently  supplies  libraries  for  Microsoft  Windows™,  Microsoft 
Windows  NT™,  Microsoft  DOS™  (graphics  mode),  Microsoft  DOS™  (text  mode),  IBM 
OS/2™,  UNIX  MOTIF™,  and  in  the  near  future  for  Apple  Macintosh™.  Using  these 
libraries,  it  is  possible  to  recompile  source  code  written  to  take  advantage  of  the  libraries 
for  a  different  platform  with  out  re-coding.  This  saves  development  cost  and  presents  the 
end  user  with  a  consistent  interface  across  multiple  platforms.  Currently,  MOONLITE  is 
compiled  only  for  Microsoft  Windows™. 

C.  PROGRAM  STRUCTURE 

I.  Control  Hierarchy 

MOONLITE  is  an  event  driven  program.  Event  driven  programs  perform  no 
function  until  prompted  by  an  event.  MOONLITE,  once  running,  simply  waits  for  the 
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user  to  initiate  an  event.  The  most  common  event  will  be  a  menu  choice,  but  it  could  also 
be  a  window  resize,  move,  or  termination. 

The  top  level  of  the  MOONLITE  program  is  the  event  handler.  The  event  handler 
fields  all  events  and  then  instantiates  and  sends  a  message  to  client  classes  as  needed.  A 


hierarchy  of  events  is  shown  in  Figure  2. 


Figure  2.  Event  Handling  Hierarchy 


The  single  level  menuing  of  MOONLITE  is  evident  from  Figure  2.  Each  menu 


option  is  modal  in  MOONLITE,  i.e.  another  option  cannot  be  chosen  until  the  user  is 
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finished  with  the  current  option.  Rewriting  MOONLITE  to  handle  MDI  (Multiple 
Document  Interface)  may  be  an  option  for  future  enhancement. 

It  is  important  that  programs  written  to  operate  in  a  multitasking  environment, 
such  and  Microsoft  Windows  or  UNIX,  be  event-driven.  An  event-driven  program  will 
"sleep"  when  it  is  not  fielding  events.  This  allows  maximum  processor  utilization  since 
the  program  is  not  executing  a  "busy-loop"  or  polling  for  user  input  and  thus  allows  other 
processes  to  execute  while  it  is  waiting  for  an  event.[7] 

2.  Classes 

As  stated  earlier,  MOONLITE  is  written  using  object  oriented  techniques.  Object 
oriented  programming  consists  of  encapsulating  member  functions  and  variables  in  a 
class,  the  instantiation  of  which  is  an  object.  The  basic  class  hierarchy  of  MOONLITE  is 
shown  in  Figure  3. 


Figure  3.  Class  hierarchy  of  derived  classes 
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The  base  class  from  which  most  other  classes  are  derived  is  zEvH,  the  event 
handler.  Derived  from  zEvh  is  zWindow  and  zFrameWin.  ZFrameWin  is  a  class  which 
when  instantiated  and  given  focus  presents  a  standard  windows  frame  on  the  monitor. 
This  frame  can  not  hold  text  or  graphics,  but  it  can  hold  other  windows  which  do  hold 
text  and  graphics.  ZFrameWin's  purpose  is  to  create  a  standard  Windows  window 
capable  of  resizing,  moving,  minimizing,  maximizing,  and  terminating.  [8] 

Derived  from  zFrameWin  is  zAppFrame  and  MenuFrame.  ZAppFrame  is  a 
special  zFrameWin  which  is  designed  to  be  the  topmost  window  of  an  actual  application 
such  as  MOONLITE.  Code  segment  (3)  illustrates  the  code  used  to  instantiate  the  upper 
level  application  window  for  MOONLITE. 

MenuFrame  *mainWn<Hww  MenuFrame(0,new  zSizer(  1 0, 1 0,625,520),zSTDFRAME,  "MOONLITE");  (3) 

Code  segment  (3)  instantiates  a  new  instance  of  a  class  of  MenuFrame  with  an 
attendant  pointed  called  mainWnd.  In  its  constructor,  it  sets  a  default  window  size  using 
the  class  zSizer.  In  this  instance  the  window’s  upper  left  hand  comer  starts  at  pixel  10,10 
and  ends  at  pixel  625,520.  This  size  is  aesthetically  pleasing  for  a  standard  1024  X  768 
pixel  display. 

After  instantiating  the  main  application  window  the  menu  items  are  added.  The 
menu  itself  was  created  using  the  resource  workshop  of  Borland  C++.  Using  the  resource 
workshop,  a  description  of  the  desired  menu  is  created  then  passed  to  the  main 
application  window  for  display.  Code  segment  (4)  shows  the  only  MOONLITE  line  of 
code  needed  to  attach  a  menu  to  the  parent  application. 

mcnu(new  zMenu(this,  zResld(MENU_MAIN)));  (*) 
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Code  segment  (4)  instantiates  a  new  zMenu  and  passes  an  identification  number  to 
the  constructor.  This  identification  number  is  assigned  to  the  menu  resource  and  is  a 
method  of  uniquely  identifying  resources.  A  portion  of  the  menu  description  is  shown  in 
code  segment  (5).  One  can  see  that  the  menu  description  includes  the  displayed  title  of 
the  menu  item,  its  parent  menu  item,  a  control  key  keyboard  shortcut  if  available,  and  an 
identity  number  to  be  passed  to  a  function  should  that  menu  item  be  called. 

POPUP  “AFile"  (5) 

I 

MENUITEM  "ANew",  ID  MENU  FILENEW 
MENUITEM  'AOpen...*,  Q}  MENU  FILEOPEN 
MENUITEM  "&S*ve',  ID  MENU  FTLESAVE 
MENUITEM  "Save  Aa*..  .MD  MENU  FILESAVEAS 
MENUITEM  SEPARATOR 

MENUITEM  "APrinC..’,  ID  MENU  FILEPRINT,  GRAYED 
MENUITEM  "Page  seAtup. ID_MENU_F1LEPAGESETUP,  GRAYED 
MENUITEM  “PArintcr  setup...*,  ID  MENU  FILEPRINTERSETUP,  GRAYED 
MENUITEM  SEPARATOR 
MENUITEM  "EAxh",  ID  MENU  FILEEXTT 
} 

In  order  to  have  our  desired  function  called  when  menu  item  is  selected,  it  is 
necessary  to  override  the  default  event  handler  for  each  menu  item.  Code  segment  (6) 
illustrates  how  the  event  handler  is  overridden. 


menu(}->setComina>d(thb,(ConmutfidProc)AMenuFnane : :  doExrt,ID_MENU_FILEEXrT);  (6) 

menu()->setCoiiim«n<l(this,(Cofmn«o<lProc)&MenuFr*me:  :AddLocatk>n4D_MENU_LOCS_ADD); 
meno(>->setConun*od(thB,(Co(Uin«ndProc)&MenuFrwiie::EditLoc«tion,ID_MENU_LOCS_EDIT); 
menuO>setComm*nd(this,(Coiiiro»ndPioc)AMenuFr*me:  :DekteUxaaion,ib_MENU_LOCS_DELETE). 
menuO->*etComm*nd(this,(Co(iim*n<IProc)AMenuFr*me::FileS«veTD_MENU_FILESAVE); 
memi()->setCofnmand(tfais,(Co(Tiin«)<jPnx;)AMeiHiFrvne:  :FileOpen,ID_MENU_FILEOPEN); 
menu()->setComnMnd(thtj,(Comm«ndProc)AMenuFr«ne::FileNcw,ID_MENU_FILENEW); 
menu()->setComnund(thiJ,(Comm«odProc)AMeouFr»TK::SpotDat*,ID_MENU_SPOTDATA); 
meuu()->*etComm*nd(this,(Conun«idPTOc)AMemiFr»ine : :  Evxtit,ID_MENU_DAILYEVENTS); 
iiKiut()->9etCofnnuvKKthis,(Co(niii«n<iProc)AMeiraFrane : :  Positioo,ID_MENU_POSmON); 

Here  again  we  see  an  identifying  number  passed  to  each  function  in  the  form  of  a 
descriptive  name.  The  file  defines.h  contains  a  list  of  all  identifiers  used  in  MOONLITE 
and  their  corresponding  numeric  identifier.  Numeric  identifiers  are  arbitrarily  chosen.  In 
MOONLITE  each  logical  grouping  is  given  its  own  hundreds  digit  identifier  with 


member  items  bang  numbered  sequentially.  Code  Segment  (7)  is  an  example  of  some 
identifiers  from  defines,  h. 


(defioeMENU  MAIN 

100 

(define©  MENU  POSITION 

ns 

(define  ID.MENU  FILENEW 

101 

Ms fine  ID  MENU  FILEOPEN 

102 

1  define  ID  MENU  FILESAVE 

103 

(define  ID  MENU  FILESAVEAS 

104 

(define  ID  MENU  FILEFfUNT 

105 

(define  ID  MENUJTLEPAGESETUP 

106 

(define  ID  MENU  FtLEFfUNTERSETUP 

107 

(define  ID  MENU  FILEEXIT 

101 

In  C++  each  define  is  substituted  by  its  defined  value  at  compile  time.  Thus 

IDMENUFILEEXIT  is  replaced  at  compile  time  by  the  number  108.  Using  "define" 
statements  makes  the  code  more  readable  and  decreases  the  chances  of  assigning  a  wrong 
identifier  to  a  function. 


Each  menu  function  instantiates  a  type  of  zFonnDialog.  MOONLITE  handles  all 
input  and  output  through  the  use  of  dialog  boxes.  This  technique  allows  the  end  user  to 
size  and  move  output  windows  on  the  monitor  to  suit  their  individual  taste.  There  are 
eight  dialog  classes.  Each  dialog  class  begins  with  "C_dlg”  to  identify  it  as  a  class  and  a 
dialog.  These  classes  are  examined  in  the  next  section. 


3.  Program  Flow 

When  a  user  selects  a  menu  item,  that  item's  corresponding  class  is  instantiated 
and  called.  Focus  is  passed  to  that  class  (always  a  dialog)  and  retained  until  the  dialog  is 
closed  and  deleted.  As  an  example  of  program  flow,  we  will  trace  the  flow  of  the  menu 
selection  RUN|SPOTDATA. 

When  a  user  initially  runs  MOONLITE,  the  program  places  itself  in  memory  and 
attempts  to  read  a  file  called  moonlite.dat.  If  that  file  is  not  found,  MOONLITE  presents 
a  warning  message  to  the  user  telling  them  that  the  data  file  was  not  loaded.  If  the  file 
was  found,  MOONLITE  loads  the  locations  stored  in  moonlite.dat  into  a  linked  list.  This 
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linked  list  is  passed  to  all  of  the  dialogs  from  this  point  on  in  the  program.  Each  dialog 
requires  that  the  user  select  a  location  for  which  they  would  like  output.  Using  a  linked 
list  allows  a  (theoretically)  unlimited  number  of  locations  to  be  stored  by 
MOONLITE.[10J 

Once  MOONLITE  is  initialized,  it  waits  for  the  user  to  generate  an  event.  In  this 
case  we  will  assume  that  the  user  points  to  the  menu  item  RUN  and  selects  the  member 
item  SPOTDATA.  From  code  segment  (6)  we  see  that  menu  item 
ID  RUN  SPOTDATA  is  associated  with  event  handler  MenuFrame : : Spotdata. 
MenuFrame : : Spotdata  is  comprised  of  the  following  code: 

MenuFrame:  :Spo(Data(zCo(iimndEvt  *ee)  (8) 

{ 

routines  ‘engine  -  new  routinesfll); 

engine->spotd*ttO. 

delete  engine; 

ietum(l); 

} 

MenuFrame : :  Spotdata  creates  a  new  object  of  type  routines,  and  assigns  a  pointed 
named  "engine"  to  point  to  that  object.  Notice  that  "11”  the  linked  list  of  locations  was 
passed  to  the  class  "routines”  as  part  of  the  constructor.  Once  the  class  is  instantiated  as 
an  object,  the  object  is  sent  the  message  "spotdata”. 

The  code  associated  with  routines : : spotdata  is  shown  in  code  segment  (9). 

routine$::«potdataO  (9) 

{ 

Cjflupotdtfa  *d)g_spot  -  new  C_dlgL.spotd*a(ll,  zRe*Id(SPOT_DETAIL)); 
delete  dlfctpot; 

} 

Here  again,  this  object  creates  a  new  object  of  the  type  C_dlg_spotdata.  This  is 
our  dialog  and  the  location  where  MOONLITE  will  interact  with  the  user.  Since 
C_dlg_spotdata  always  accomplishes  the  same  task,  the  bulk  of  the  user  task  is  included 
in  the  constructor  of  the  class  and  is  automatically  executed 


The  code  for  Cjilgjspotdata  is  too  lengthy  to  list  here,  but  it  is  included  in 
Appendix  B.  C_dlg_spotdata  creates  a  dialog  box  with  the  necessary  controls  to  prompt 
the  user  for  die  required  input.  It  also  contains  read  only  controls  for  the  display  of 
output. 

Like  the  main  application,  the  dialog  box  for  C_dlg_spotdata  is  event  driven. 

Once  instantiated,  it  waits  for  the  user  to  generate  an  event  Assuming  that  the  user 
wishes  to  continue  with  the  spotdata,  he  or  she  will  (in  any  order)  select  a  location,  a  date, 
and  a  time.  Each  time  an  event  is  generated,  C_dlg_spotdata  examines  the  event  and 
takes  action  on  it  If  the  user  selects  a  location,  the  dialog  updates  its  internal  variables 
with  the  data  from  the  selected  location. 

The  dialog  has  built  in  error  reduction.  A  user  may  only  choose  the  options  that 
are  available.  He  or  she  may  not  input  anything  from  the  keyboard.  For  example,  the 
months  of  the  year  are  presented  to  the  user  in  a  pulldown  selection  box.  The  user  may 
only  choose  one  of  die  twelve  months.  Once  the  user  selects  one,  the  dialog  will  analyze 
the  choice  and  change  the  remaining  dialog  boxes  to  reflect  that  choice.  For  example,  if 
the  user  selects  "January",  the  dialog  will  change  the  possible  selections  of  the  day  to 
include  31.  If  the  user  selects  "February",  the  dialog  will  check  the  year  to  see  if  it  is  a 
leap  year  and  present  the  appropriate  number  of  days  for  the  user  to  select.  This  pseudo 
real-time  error  checking  reduces  the  number  of  errors  a  user  can  create.  If  a  user  should 
select  the  29th  day  of  February  and  later  change  the  year  to  one  that  was  not  a  leap  year, 
MOONLITE  will  clear  the  day  selected  and  highlight  the  day  control  to  indicate  to  the 
user  that  they  must  select  a  new  day. 

Once  the  user  selects  a  location,  MOONLITE  will  compute  the  desired  data  on  the 
fly  each  time  die  user  changes  a  control.  MOONLITE  accomplishes  this  by  examining 
the  complete  data  set  of  the  dialog  box  each  time  the  user  generates  an  event.  Actually, 
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MOONLITE  waits  until  the  user  completes  an  event,  but  to  the  user  that  is  invisible.  If 
the  dialog  is  complete,  i.e.  the  minimum  number  of  controls  to  produce  meaningful 
results  have  been  selected  and  properly  activated,  MOONLITE  instantiates  the  algorithm 
and  passes  the  data  to  the  new  instantiation.  When  the  algorithm  returns  the  data, 
MOONLITE  passes  that  data  to  the  dialog's  read-only  controls  for  display. 

When  the  user  selects  the  DONE  button,  MOONLITE  backs  out  of  each  class 
calling  its  destructor  and  freeing  any  memory  used  by  that  class.  At  this  point 
MOONLITE  is  again  in  its  initial  state  and  waits  for  another  event. 

By  designing  MOONLITE  to  always  return  to  its  initial  state,  memory 
requirements  are  kept  to  a  minimum.  MOONLITE  does  not  "hold"  any  memory  aside  for 
data  storage  or  for  computations.  All  memory  requests  are  dynamic  with  the  current 
event.  MOONLITE  was  written  to  reduce  its  memory  requirements  after  every  operation 
for  several  reasons.  First,  when  operating  in  a  multitasking  environment,  MOONLITE 
ensures  a  maximum  amount  of  memory  available  to  the  other  processes.  Second,  when 
operating  in  a  single  task  environment  such  as  DOS,  it  is  possible  to  overlay  different 
class  instantiations  and  therefore  allow  MOONLITE  to  operate  in  a  much  smaller 
memory  area.  MOONLITE  therefore  has  a  minimum  impact  on  multitasking  systems 
such  as  Microsoft  windows™.  [7] 

4.  Calendar  Optimization 

One  of  the  most  used  functions  of  LITELEVL,  and  thus  of  MOONLITE  is  the 
planning  calendar.  The  planning  calendar  presents  the  user  with  a  graphical 
representation  of  illuminance  levels  for  an  extended  duration.  A  typical  request  for  the 
calendar  option  is  to  print  the  illuminance  levels  for  a  specific  location  from  sun  set  to 
sun  rise  every  night  for  a  six  month  period.  Calculating  the  calendar  is  the  most 
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processor  intensive  procedure  MOONLITE  must  accomplish.  The  old  LITELEVL 
program  frequently  took  more  than  a  minute  to  compute  one  line  of  the  calendar.  One 
line  corresponds  to  one  nights  worth  of  data.  Inspection  of  the  LITELEVL  code  reveals 
that  besides  using  time  consuming  GOTO  and  GOSUB  statements,  the  program  used  a 
brute  force  method  of  computing  the  calendar  line. 

LITELEVL  attacked  a  planning  calendar  line  in  the  following  fashion:  First,  it 
computed  the  daily  events  for  the  current  day.  Then  it  computed  the  illuminance  every 
ten  minutes  from  1700  until  0800  the  next  day,  82  points  total.  It  then  computed  the 
daily  events  for  the  next  day. 

MOONLITE  uses  a  more  dynamic  approach  to  the  problem.  MOONLITE  first 
calculates  the  daily  events  for  the  current  day.  This  calculation  results  in  the  sun  rise,  sun 
set,  moon  rise,  and  moon  set  Using  this  data,  MOONLITE  compares  the  sun  set  time  to 
the  moon  rise  time.  If  the  moon  rises  after  the  sun  sets,  MOONLITE  automatically  fills 
in  the  calendar  line  with  the  appropriate  symbols  to  show  that  either  the  sun  was  still 
above  the  horizon  or  that  the  moon  had  not  yet  risen.  If  the  moon  rises  after  midnight 
MOONLITE  fills  in  the  entire  first  half  of  the  calendar  line  with  the  symbol  for  the  moon 
having  not  yet  risen.  If  the  moon  rises  before  midnight,  MOONLITE  fills  in  the  symbol 
for  moon  not  risen  up  to  the  time  of  moonrise.  From  this  point  until  either  moon  set  or 
sun  rise,  MOONLITE  uses  a  modified  binary  search  algorithm  to  determine  the  state  of 
illuminance. 

Aviators  only  wish  to  know  four  conditions  on  a  planning  calendar:  the  sun  is 
above  the  horizon,  the  moon  is  below  the  horizon,  the  sun  is  below  the  horizon  and  the 
illuminance  is  below  a  threshold,  or  the  sun  is  below  the  horizon  and  the  illuminance  is 
above  a  threshold.  Once  the  moon  has  risen,  MOONLITE  computes  the  illuminance  for 
the  first  period.  MOONLITE  allows  the  user  to  select  the  period  between  calculations. 
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LITELEVL  only  calculated  at  ten  minute  intervals.  MOONLITE  then  jumps  four 
blocks  forward  and  calculates  the  illuminance.  If  the  illuminance  results  in  the  same 
category  as  the  illuminance  four  blocks  prior,  MOONLITE  fills  in  the  sandwiched 
intermediate  blocks  with  the  same  symbol.  If  the  illuminance  results  in  a  different 
category,  MOONLITE  jumps  back  two  blocks  and  computes  that  illuminance  symbol.  If 
the  symbol  is  the  same  as  the  first  symbol,  MOONLITE  fills  in  the  second  block  with  the 
same  symbol  and  computes  the  third  block.  If  the  symbol  is  different  from  the  first 
symbol,  MOONLITE  computes  the  second  block.  MOONLITE  then  compares  the 
second  block  to  the  fourth  block.  If  they  are  the  same,  if  fills  in  the  third  block.  If  they 
are  different,  if  computes  the  third  block. 

Using  this  jump  and  evaluate  method,  similar  to  a  binary  search,  MOONLITE 
dramatically  reduces  the  amount  of  calculations  needed  for  each  line  of  the  calendar.  At 
a  minimum,  if  the  moon  never  rises,  MOONLITE  will  make  no  illuminance  calculations 
and  two  daily  event  calculations.  On  the  average,  MOONLITE  appears  to  make 
approximately  seven  illuminance  calculations  per  calendar  line. 

Since  both  LITELEVL  and  MOONLITE  make  two  daily  event  calculations  per 
calendar  line,  we  can  compare  the  illuminance  calculations  for  a  rough  indication  of 
output  speedup  between  LITELEVL  and  MOONLITE.  LITELEVL  always  makes  82 
calculations  per  line.  Thus  MOONLITE  is  82/7  as  fist  as  LITELEVL,  or  accomplishes  a 
speedup  of  a  little  over  eleven  times  the  output  speed  of  LITELEVL. 

MOONLITE  also  enjoys  a  performance  increase  from  the  use  of  Borland's  C++. 
The  C-h-  language  is  an  extremely  terse,  compact,  and  efficient  language.  Borland's  C++ 
compiler  uses  a  number  of  optimization  techniques  such  as  common  subexpression 
elimination,  copy  propagation,  and  invariant  code  motion  to  further  increase  the  runtime 
efficiency  of  the  code.  The  final  version  of  MOONLITE  will  be  available  in  processor 


specific  versions  which  will  optimize  MOONLITE  for  use  on  that  processor.  The 
processor  specific  versions  will  take  advantage  of  optimization  techniques  such  as 
strength  reduction  and  branch  offset  optimization.  [5] 

Figure  5  shows  a  single  line  from  the  planning  calendar  for  a  location  at  36 
degrees,  35.2  minutes  north,  121  degrees,  50.6  minutes  west  on  the  4th  of  November, 
1993  with  an  offset  of  eight  hours  from  Greenwich  mean  time.  Figure  5  illustrates  the 
order  in  which  MOONLITE  would  analyze  the  example  calendar  line.  Even  though 
MOONLITE  uses  ten  calculations  on  this  line,  it  is  still  far  faster  than  LITELEVL  which 
calculates  82  points. 

The  jump  MOONLITE  makes  between  calculations  nine  and  ten  deserves 
explanation.  MOONLITE  compares  every  point  prior  to  midnight  to  the  point  at 
midnight  As  soon  as  there  is  a  match,  MOONLITE  fills  in  the  symbols  and  jumps  to  the 
first  block  after  midnight.  MOONLITE  compares  every  point  after  midnight  to  the  last 
point  prior  to  sun  rise.  Again,  as  soon  as  there  is  a  match,  MOONLITE  fills  in  the 
symbols  between  the  two  points.  In  our  example,  the  symbol  just  after  midnight  and  the 
symbol  just  prior  to  sun  rise  match,  therefore  MOONLITE  fills  and  finishes. 

From  this  example  one  can  see  that  MOONLITE  must  make  more  calculations 
when  the  moon  is  most  dynamic  and  fewer  calculations  when  the  moon  is  fairly  static. 
The  moon  is  most  dynamic  relative  to  the  higher  latitudes.  Above  sixty  degrees  north  or 
south  latitude,  the  moon  could  rise  and  set  many  times  during  a  night.  Indeed,  at  the  pole, 
the  moon  could  "hover"  right  on  the  verge  of  rising  and  setting.[9]  Because  of  the  ill- 
conditioned  behavior  of  the  moon  at  high  latitudes,  MOONLITE  only  uses  this  pseudo 
binary  search  routine  with  the  fast  algorithms  at  latitudes  less  than  sixty  degrees. 
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Figure  7.  An  example  of  MOONLITE's  pseudo  binary  search  algorithm 
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Vn.  FUTURE  WORK  NEEDED  /  UPGRADES 
A.  FUTURE  WORK  NEEDED 

MOONLITE  is  not  fully  complete  at  this  time.  Although  functional,  some  menu 
options  ami  button  choices  are  not  activated.  Per  an  agreement  with  the  Naval  Air 
Warfare  Center  in  Warminster,  Pennsylvania,  the  author  will  continue  to  work  on  the 
MOONLITE  project  at  his  next  duty  station  to  complete  the  MOONLITE  project. 

The  following  items  need  to  be  completed: 

•  Write  PAGE  SETUP  routines 

•  Write  PRINTER  SETUP  routines 

•  Write  PRINT  function 

•  Activate  EDIT|COPY  to  allow  copying  data  to  Windows  clipboard 

•  Activate  context  sensitive  help 

•  Implement  accurate  algorithms 

With  the  exception  of  implementing  the  accurate  algorithms,  all  of  the  items 
remaining  to  be  completed  are  dependent  upon  cross-platform  considerations.  For 
example,  the  PAGE  SETUP,  PRINTER  SETUP,  and  PRINT  routines  can  all  be 
implemented  using  a  single  windows  call  each  in  Microsoft  Windows™.  When 
MOONLITE  is  ported  to  Microsoft  DOS™,  however,  these  calls  will  not  be  available. 
The  author  is  awaiting  receipt  of  DOS  libraries  prior  to  writing  these  routines  to  ensure 
their  ability  to  compile  both  under  Microsoft  Windows™  and  Microsoft  DOS™. 
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B.  FUTURE  UPGRADES 


During  the  design  phase  of  MOONLITE,  numerous  Marine  Corps  and  Navy  pilots 
were  queried  regarding  their  desires  in  a  program  such  as  MOONLITE.  From  their 
responses,  a  list  of  future  enhancements  is  proposed. 

•  Allow  Dynamic  Data  Exchange  from  MOONLITE 

•  Add  an  option  to  print  a  graphical  representation  of  moon  azimuth  and 
altitude  versus  time. 

•  Compile  MOONLITE  for  use  on  the  Apple  Macintosh™. 
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APPENDIX  A:  USER'S  MANUAL 


Luclion 


Welcome  to  MOONLITE! 

MOONLITE  is  a  computer  program  that  predicts  the  normal  daily 
celestial  events  such  as  sunrise,  sunset,  moonrise,  moonset,  and  the 
phase  of  the  moon.  Additionally,  MOONLITE  calculates  the 
amount  of  light  being  cast  upon  the  surface  of  the  earth  from  the 
sun,  moon,  and  stars. 

This  initial  release  of  MOONLITE  is  written  to  run  within 
Microsoft  Windows^.  Depending  on  the  need  for  such  versions, 
future  versions  of  MOONLITE  may  run  on  Microsoft  DOS™,  on 
the  Apple  Macintosh™,  and  on  UNIX-based  workstations  under 
MOTIF.  Users  of  MOONLITE  will  experience  a  familiar 
interface  regardless  of  which  platform  they  use. 

MOONLITE  is  distributed  on  a  single  3 ‘A”,  1.44  Megabyte 
diskette  and  requires  Microsoft  Windows^  version  3.0  or  higher  to 
run. 


MOONLITE  was  developed  at  the  United  States  Naval 
Postgraduate  School  in  Monterey,  California  by  Captain  Michael 
T.  Lester  with  advice  and  guidance  from  Doctor  Douglas  J.  Fouts 
and  Doctor  Paul  M.  Janiczek. 


Questions  regarding  the  programming  or  operation  of 
MOONLITE,  reports  of  bugs  (I  hope  not!),  or  suggestions  for 
future  enhancements  may  be  sent  via  E-mail  to 
“moonlite@ece.nps.navy  .mil”. 

I  have  endeavered  to  make  MOONLITE  as  user-friendly  and 
efficient  as  possible  and  hope  you  enjoy  its  use. 
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Whats  New! 


MOONL1TE  is  a  completely  new  product! 

The  following  is  a  list  ofMOONLITE's  new  features: 

■  Runs  under  Microsoft  Windows 

■  Graphical  User  Interface 

■  Stores  locations  for  future  use 

■  Optimized 

■  Variable  time  periods  in  Calendar  and  Position  Chart 

MOONLITE  runs  under  Microsoft  Windows.  By  writing 
MOONLITE  to  run  under  Windows  we  were  able  to  take 
advantage  of  Window's  Graphical  User  Interface  (GUI)  assuring 
you,  the  user,  the  most  intuitive,  easily  used  interface  available. 

MOONLlTE's  Graphical  User  Interface  takes  advantage  of  pull¬ 
down  menus,  dialog  boxes,  hot-key  activation,  and  window  sizing. 

MOONLITE  allows  the  user  to  store  a  virtually  unlimited  number 
of  locations  for  future  use.  Multiple  data  files  may  also  be  used. 

MOONLITE  is  optimized.  MOONLITE  is  based  on  the  same 
algorithms  used  by  LITELEVL  and  SLAP,  but  they  have  been 
optimized  and  implemented  in  a  way  that  ensures  the  fastest  most 
accurate  data  available  from  these  algorithms.  MOONLITE  was 
written  using  the  most  modem  programming  techniques  which  has 
resulted  in  a  response  time  that  is  ten  times  faster  than  the  old 
LITELEVL  program. 
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MOONLITE  uses  the  same  algorithms  as  Litelevl  and  SLAP. 

The  output  of  the  Position  Chart  and  the  Planning  Calendar  are 
unchanged.  This  was  a  conscious  design  decision.  We  believe  that 
most  users  of  MOONLITE  are  so  familiar  with  the  output  of 
Litelevl  that  changing  the  format  would  be  counter-productive. 
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General 


MOONLITE  is  distributed  on  a  single  3*/i”,  1.44  Megabyte 
diskette.  The  disk  contains  the  following  four  files: 

1.  MOONLITE.exe  The  MOONLITE  program 

2.  MOONLITE.dat  A  data  file  of  pre-loaded  geographic 

locations 

3.  MOONLITE .  doc  A  WinWord  copy  of  this  document 

4.  Setup.exe  The  MOONLITE  setup  file 


Installing  MOONLITE  on  your  Hard  Drive 

1 .  Start  Microsoft  Windows. 

2.  Place  the  MOONLITE  diskette  in  the  disk  drive. 

3.  Open  the  “Main”  Group  by  double  clicking  on  the  group 
entitled  “Main”  in  die  Program  Manager. 

4.  Open  the  File  Manager  by  clicking  on  the  file  manager  icon 
in  the  Main  group. 

5.  Click  on  the  appropriate  drive  letter  for  your  machine.  On 
your  machine,  it  may  be  drive  A  or  drive  B. 

6.  Double  click  on  the  file  entitled  “setup.exe”  in  the  drive 
window. 

Or, 

1.  Choose  die  menu  option  FILE  |  RUN  from  the  Program 
manager 

2.  Type  in  “A:\setup.exe”  or  “B:\setup.exe”  depending  on 
which  drive  your  MOONLITE  diskette  is  in. 


Setup 

MOONLITE’s  setup  program  will  perform  the  following  tasks: 

1 .  Create  a  directory  on  the  C:  drive  called  “MOONLITE" 

2.  Copy  die  files  from  the  A:  (or  B:)  drive  to  the  newly 
created  directory 

3.  Create  a  program  group  called  MOONLITE 

4.  Place  an  icon  for  the  MOONLITE  program  in  the 
MOONLITE  group 


Running  MOONLITE 


From  the  Hard  Drive 

After  installing  MOONLITE  using  the  Setup  program  as  described 
above,  MOONLITE  may  be  run  by  double  clicking  on  the 
MOONLITE  icon. 

From  Diskette 


MOONLITE  may  be  run  from  a  floppy  diskette  although  loading 
time  will  be  greatly  reduced  if  the  executable  file, 
MOONLITE.exe,  is  placed  on  your  hard  drive. 


To  run  MOONLITE  from  the  diskette: 


1 .  Start  Microsoft  Windows. 

2.  Place  the  MOONLITE  diskette  in  the  disk  drive. 

3.  Open  the  “Main”  Group  by  double  clicking  on  the  group 
entitled  “Main”  in  the  Program  Manager. 

4.  Open  the  File  Manager  by  clicking  on  the  file  manager  icon 
in  the  Main  group. 

5.  Click  on  the  appropriate  drive  letter  for  your  machine.  On 
your  machine,  it  may  be  drive  A  or  drive  B. 

6.  Double  click  on  the  file  entitled  “moonlite.exe”  in  the  drive 
window. 

Or, 

1.  Choose  the  menu  option  FILE  |  RUN  from  the  Program 

manager 

2.  Type  in  “A:\moonlite.exe”  or  “B:\moonlite.exe”  depending 
on  which  drive  your  MOONLITE  diskette  is  in. 


Tutorial 


MOONLITE  was  designed  to  be  as  intuitive  and  user  friendly  as 
possible.  When  you  first  start  MOONLITE  you  will  be  presented 
with  the  main  MOONLITE  screen  seen  below. 


Efe  Edtt  Locations  Bun  Help 
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MOONLITE  has  five  main  menu  choices:  File,  Edit,  Locations, 
Run,  and  Help. 

Unlike  MOONLITE ’s  predecessor,  LITELEVL,  MOONLITE 
allows  the  user  to  store  geographic  locations  for  future  use.  As  a 
matter  of  fact,  MOONLITE  demands  that  the  user  load  a  location 
prior  to  use.  This  feature  saves  the  user  from  looking  up  the 
latitude  and  longitude  over  and  over  every  time  they  run  the 
program.  It  also  ensures  that  the  user  receives  the  data  for  the 
same  latitude  and  longitude  once  they  select  a  location. 

When  MOONLITE  is  first  started,  it  looks  for  a  file  called 
“MOONLITE.dat”.  This  file  contains  the  geographic  locations 
that  have  been  previously  stored  in  MOONLITE.  There  is 
theoretically  no  limit  to  the  number  of  locations  a  user  can  store. 
The  maximum  number  of  locations  a  user  can  store  is  determined 
by  the  amount  of  memory  the  user  has  available.  If  MOONLITE 
can  not  find  the  data  file,  it  warns  the  user  that  the  data  file  is  not 
found. 


If  you  see  this  warning,  it  means  that  die  file  “moonlite.dat”  was 
not  located  in  the  default  directory  nor  in  your  current  path.  By 
clicking  on  the  “OK”  button,  MOONLITE  will  continue  to  load 
and  run. 

In  order  to  allow  the  user  to  maintain  geographic  locations  in 
logical  groups,  MOONLITE  allows  the  use  of  of  many  data  files 
although  only  one  file  may  be  in  use  at  any  time.  By  pulling  down 
the  FILE  menu  from  the  main  MOONLITE  screen,  the  user  may 
choose  to  open  a  new  data  file  or  save  a  current  data  file. 

For  the  time  being,  we  will  assume  that  the  default  data  file 
“moonlite.dat”  was  loaded  when  MOONLITE  was  first  started. 
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Since  there  are  a  number  of  locations  pre-loaded  with  the 
MOONLITE  program,  we  can  proceed  directly  to  the  RUN  menu 
to  get  our  first  results. 

Clicking  once  on  the  RUN  menu  displays  the  output  options  that 
are  available  from  MOONLITE.  Lets  find  out  when  the  Daily 
Events  take  place  today.  Click  on  the  option  “Daily  Events”. 


MOONLITE  now  displays  the  dialog  box  for  daily  events.  This 
dialog  box  is  used  both  for  you  to  tell  MOONLITE  what  data  you 
would  like,  and  for  MOONLITE  to  display  that  data  for  you. 


To  determine  the  Daily  Events,  MOONLITE  Needs  to  know  the 
location  and  the  date  for  which  you  desire  data. 

By  clicking  on  the  arrow  to  the  right  of  the  box  entitled 
“Description”,  the  one  with  “[Choose  Location]”  in  the  box, 
MOONLITE  will  display  a  list  of  the  currently  loaded  locations. 
For  this  example,  click  on  the  location  entitled  “CA:  Monterey”. 
You  can  see  that  as  soon  as  you  made  your  selection,  MOONLITE 
started  giving  you  data.  Right  now,  that  data  is  for  January  1, 1986 
since  that  is  the  default  date.  By  choosing  the  date  the  same  way 
we  chose  the  location,  by  clicking  on  the  arrow  on  the  right  side  of 
the  combination  box  and  selecting  one  of  the  options  from  the  list, 
we  can  view  data  for  any  date  within  MOONLITE’s  operating 
range. 

HINT:  Combination  boxes  can  be  activated  by  clicking  anywhere 
on  the  box,  not  just  on  the  arrow  on  the  right  side. 
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For  our  example  here,  choose  June  16,  1994.  As  you  finish 
selecting  the  last  parameter,  MOONLITE  has  already  updated  the 
information  and  is  displaying  it  in  the  lower  half  of  the  dialog  box. 


In  this  case,  the  Daily  Events  dialog  looks  like  this: 


Here  in  one  easy  to  read  dialog  box  we  can  see  the  location  for 
which  we  desired  data,  the  date  for  which  we  requested  the  data, 
and  the  data  itself. 

If  you  wish  a  print  out  of  this  data,  you  simply  click  once  on  the 
“Print”  button  on  the  bottom  of  the  dialog  box.  For  now,  we  want 
to  explore  some  other  parts  of  MOONLITE,  so  click  on  the  “Done” 
button  to  return  to  the  main  MOONLITE  screen. 

Let's  select  the  next  option  without  the  use  of  the  mouse.  You  will 
notice  that  all  of  the  menu  options  have  one  letter  underlined.  This 
letter  indicates  the  “hot-key”  which  will  activate  the  menu.  By 
pressing  down  the  “Alt”  key  and  the  letter  that  is  underlined  at  the 
same  time,  we  can  activate  the  menu. 

Press  the  “Alt”  key  on  the  keyboard  and  while  continuing  to  hold  it 
down,  press  the  “R”  key.  Now  let  go  of  both  keys. 

You  can  see  that  the  RUN  menu  was  activated.  You  will  also 
notice  that  each  menu  option  inside  of  the  RUN  menu  also  has  a 
hot-key  associated  with  it.  Since  we  already  have  the  menu’s 
attention,  we  don’t  need  to  use  the  Alt  key  this  time,  we  only  need 
to  press  the  letter  of  the  option  we  want.  We  have  already  looked 
at  the  Daily  Events,  so  lets  look  at  the  Spot  Detail  this  time.  Since 
“S”  is  underlined  in  the  “Spot  Data”  option,  press  the  “S”  key. 
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MOONLITE  has  responded  by  bringing  us  to  the  Spot  Data  dialog 
box.  This  dialog  box  is  similar  to  the  Daily  Events  dialog  box,  and 
we  will  tell  MOONLITE  what  data  we  want  in  the  same  way. 

Lets  look  at  the  spot  data  for  Montery,  CA  on  August,  21,  1994  at 
9:00  O’clock  in  the  morning. 

Choosing  the  location  is  done  the  same  as  it  was  in  the  Daily 
Events  dialog  box,  so  is  choosing  the  month.  When  we  try  to 
choose  the  21st  day,  however,  we  see  that  the  selections  only  go  to 
16.  We  need  to  scroll  the  choices  down  to  reach  the  other  dates. 
We  can  do  this  by  clicking  anywhere  below  the  position  box  on  the 
scoll  b^r  on  the  right  side  of  the  choices,  or  we  can  scroll  one 
choice  at  a  time  by  clicking  on  the  down  arrow  on  the  bottom  of 
the  scroll  bar. 

But  wait  a  minute!  We  weren’t  going  to  use  the  mouse  this  time, 
right?  You  can  still  enter  all  of  the  information.  You  will  notice 
that  the  Location  combination  box  is  highlighted  right  now.  That 
means  that  it  is  active  and  that  keystrokes  entered  on  the  keyboard 
will  affect  that  control.  Since  we  want  to  look  at  “CA:  Monterey”, 
you  can  press  “C”  to  have  MOONLITE  jump  to  the  first  choice 
that  begins  with  “C”.  Since  that  isn’t  the  choice  we  want,  use  the 
down  arrow  on  the  keyboard  to  scroll  through  the  other  options. 

When  “CA:  Monterey”  is  highlighted,  we  can  move  to  the  next 
contol  by  pressing  the  tab  key.  When  you  pressed  the  tab  key  you 
notice  that  the  focus  shifts  to  the  Month  box.  If  you  want  to  go 
back  to  the  description  box,  press  “alt-tab”. 

We  enter  the  desired  time  in  the  same  fashion. 

After  we  are  done,  the  Spot  Detail  dialog  looks  like  this: 
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Just  as  in  the  Daily  Events,  we  can  press  the  “Print”  key  to  get  a 
printout  of  our  data;  we  can  select  other  dates,  times,  or  locations; 
or  we  can  press  the  “Done”  key  to  end  this  event. 

Go  ahead  and  press  the  “Done”  key.  We  have  more  exploring  of 
MOONLITE  to  accomplish. 

What  happens  if  the  location  for  which  we  desire  data  isn’t  in 
MOONLITE’s  database? 

That  is  easy!  We  just  add  it! 

From  the  main  MOONLITE  Screen,  choose  the  Locations  menu 
option.  The  locations  menu  allows  you  to  Add,  Edit,  or  Delete  a 
location  from  MOONLITE’s  database. 

Let’s  add  a  location  by  selecting  “Add”  from  the  menu. 

MOONLITE  presents  the  Add  Location  dialog  box  to  allow  us  to 
add  our  location. 


Description 


GMT  Offset 


0.0 


Degrees 

Minutes 

Latitude  qq 

00.00 

<§>N 

Os 

Longitude  1 000  ~| 

00.00 

Oe 

<8>w 

IS  Conforms  to  DaytigM  Savings 


Here  we  need  to  fill  in  an  english  description  of  the  location,  how 
many  hours  the  location  is  offset  from  Greenwich  Mean  Time,  the 
location's  latitude  and  longitude,  and  whether  or  not  this  location 
uses  daylight  savings  time. 

The  first  item  we  need  to  enter  is  the  name  of  the  location  we  are 
adding.  The  DESCRIPTION  box  should  already  be  highlighted. 
If  it  is  not,  we  can  move  to  it  by  pressing  TAB  to  move  to  the  next 
box,  or  SHIFT-TAB  to  move  to  the  previous  box.  When  the 
Description  box  is  highlighted,  type  the  location  "Test  Location". 
We  will  use  this  location  just  to  demonstrate.  When  you  are  done 
typing,  press  TAB  to  move  to  the  next  field. 

The  GMT  Offset  box  in  MOONLITE  allows  you  to  enter  a  number 
with  a  decimal  point.  This  is  useful  if  the  location  you  are  adding 
does  not  conform  to  the  hourly  standard.  For  example,  some 
places  in  Norway  are  offset  from  Greenwich  Time  by  45  minutes. 
If  this  were  the  case,  you  would  enter  0.75  for  the  GMT  Offset. 
For  most  locations,  though,  you  will  enter  a  whole  number.  Let's 
assume  that  "Test  Location"  is  located  in  California.  California  is 
offset  eight  hours  from  Greenwich  Time,  so  we  will  enter  an  "8.0" 
in  the  GMT  Offset  box  and  press  TAB  to  move  to  the  next  field. 

In  the  Latitude  and  Longitude  boxes  values  are  entered  in  degrees, 
minutes  and  tenths  of  minutes.  If  you  have  a  location  specified  by 
minutes  and  seconds,  you  will  have  to  convert  to  minutes  and 
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tenths  of  minutes.  This  is  a  simple  conversion  accomplished  by 
dividing  the  number  of  seconds  bu  60.  The  answer  is  tenths  of  a 
minute.  For  example,  assume  a  location  of  43°  20'  30".  This 
should  convert  to  43°  20.5'. 

The  last  field  of  the  Add  Location  Dialog  Box  is  one  entitled 
"Conforms  to  Daylight  Savings  Time."  By  checking  this  box, 
MOONLITE  will  add  one  hour  to  all  input  and  output  times  when 
a  corresponding  box  entitled  "Use  Daylight  Savings  Time"  is 
checked  on  the  Spot  Data,  Position  Chart,  Planning  Calendar,  or 
Daily  Events  dialog  boxes.  If  this  box  is  not  checked,  then  even  if 
you  check  the  "Use  Daylight  Savings  Time",  the  time  will  not  be 
incremented.  In  this  way,  you  may  tag  "Use  Daylight  Savings 
Time"  when  Daylight  Savings  is  in  effect  and  know  that  only  those 
locations  that  conform  to  Daylight  Savings  will  be  affected. 

After  you  have  finished  filling  out  the  dialog  it  will  look  like  the 
one  below.  If  you  are  satisfied  with  the  entries,  press  "Save"  to 
save  this  data  If  any  of  the  numbers  you  have  entered  are  outside 
of  allowed  parameters  (for  example,  a  latitude  greater  than  90 
degrees),  MOONLITE  will  warn  you  that  an  entry  was  not  allowed 
and  return  you  to  the  field  that  was  in  error. 

Your  dialog  box  may  look  slightly  different  depending  on  what 
numbers  you  input  for  the  latitude  and  longitude  of  your  "Test 
Location". 


m 

I 

H 

Description 

GMT  Offset 

|  |test  location 

|  8.0 

Degrees 

Minutes 

Latitude  32 

|M.50  1 

<8>n  Os 

Longitude  121 

I10.2JD  1 

Oe  <§>w 

SI  Conform*  to  Daylight  Saving* 


48 


We  should  point  out  here  that  the  Test  Location  you  just  entered  is 
only  stored  in  memory.  It  has  not  been  saved  to  the  disk  yet.  If 
you  try  to  quit  MOONLITE  or  open  a  new  location  file,  you  will 
receive  a  warning  from  MOONLITE  that  your  locations  have 
changed.  MOONLITE  will  give  you  the  opportunity  to  save  your 
changes  or  to  discard  them  before  continuing. 

If  you  want  to  save  the  location  you  just  entered,  you  can  use  the 
menu  option  FILE|SAVE  to  save  all  of  the  locations  currently  in 
memory  to  the  default  file  moonlite.dat.  If  you  wish  to  save  the 
locations  in  a  different  file,  you  can  use  the  menu  option  FILE  | 
SAVE  AS.  SAVE  AS  allows  you  to  specify  a  file  name  and 
directory  for  your  data  file. 

At  the  time  this  manual  was  written,  the  Position  Chart  and 
Planning  Calendar  are  not  fully  implemented.  Descriptions  of  their 
operation  will  be  added  after  completion. 


The  File  Menu 

The  File  menu  contains  options  for  opening  and  saving  location 
data  files,  seting  up  printer  options,  printing,  and  for  closing  the 
MOONLITE  program. 

The  File  menu  looks  looks  like  this: 


M'  'wN!  !  [  f 


Edit  Locations  Bun 


Page  setup...  1  *  lit 

Printer  setup...  A  tt 

E*t^^  J  \Jff3i 

File  |  New 

This  option  is  used  to  create  a  new  locations  data  file.  The  new 
location  data  file  will  be  empty.  See  LOCATIONS|ADD  to  learn 
how  to  add  locations  to  a  data  file. 


File  |  Open 


This  option  is  used  to  open  an  existing  iocations  data  file.  When 
you  select  this  option,  you  will  be  presented  with  a  Windows  file 
selection  dialog  box.  When  you  have  selected  a  data  file, 
MOONLITE  will  open  that  file  and  read  the  locations  into 
memory. 


File  |  Save 

This  option  is  used  to  save  the  locations  presently  in  memory  to  the 
hard  drive  or  floppy  disk.  Selecting  this  option  causes 
MOONLITE  to  overwrite  the  file  that  is  currently  in  use.  For 
example,  if  MOONLITE  is  using  moonlite.dat  for  a  data  file  and 
you  have  added  locations,  then  selected  FILE|SAVE,  MOONLITE 
will  overwrite  moonlite.dat  with  the  new  locations.  All  locations 
currently  in  memory  will  be  written  to  the  file.  The  effect  is  that 
you  have  just  added  your  new  locations  to  the  locations  that  were 
previously  stored  in  moonlite.dat  This  is  the  recommended 
method  for  adding  locations  to  the  data  file. 

File  |  Save  as... 

This  option  is  used  to  save  the  locations  currently  in  memory  into  a 
file  other  than  the  one  currently  in  use.  For  example,  if 
MOONLITE  is  using  the  file  moonlite.dat  as  a  data  file,  and  you 
added  some  new  locations  and  want  them  saved  to  a  file  named 
something  other  than  moonlite.dat,  you  would  choose  FILE|SAVE 
AS.... 

File  |  Printer  setup... 

This  option  allows  you  to  determine  the  way  MOONLITE  will 
interact  with  your  printer.  It  allows  you  to  select  printers,  and  to 
access  their  options  menu.  Using  this  menu  you  will  be  able  to 
determine  print  quality  and  orientation. 


File  |  Exit 

This  option  is  used  to  exit  the  MOONLITE  program.  If  you  have 
made  any  changes  to  the  locations  in  memory,  MOONLITE  will 
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warn  you  that  your  changes  are  not  saved  and  ask  whether  or  not 
you  want  MOONLITE  to  save  the  files  for  you.  You  may  also 
quit  MOONLITE  by  double  clicking  in  the  upper- left  hand  comer 
of  the  main  MOONLITE  window. 

The  Edit  Menu 

The  only  option  available  on  the  Edit  Menu  is  Copy.  You  may  use 
this  option  to  copy  information  displayed  in  MOONLITE  to  the 
standard  Windows  clipboard  for  inclusion  in  other  applications 
such  as  Word  processors. 

The  Locations  Menu 


The  Locations  Menu  Looks  like  this: 


Locations  |  Add 

The  LOCATIONS|ADD  option  is  used  to  add  new  locations  to  the 
list  of  locations  currently  stored  in  memory.  MOONLITE  will 
store  a  (theoretically)  unlimited  number  of  locations  and  is 
constrained  only  by  the  amount  of  memory  available.  New 
locations  added  via  the  LOCATIONS|ADD  option  are  not 
automatically  saved  to  disk.  To  save  additions  you  must  use  either 
the  FILE|SAVE  or  FILE|SAVE  AS  options. 

Locations  |  Edit 

The  LOCATIONS|EDIT  option  is  used  to  Edit  locations  already  in 
memory.  To  edit  a  location  stored  in  a  data  file  on  disk,  you  must 
open  the  file  for  use,  edit  the  desired  locations,  and  save  the  file 
back  to  disk. 


Locations  |  Delete 


The  LOCATIONSjDELETE  option  is  used  to  remove  locations 
from  memory.  To  remove  a  location  from  a  data  file,  you  must 
open  the  file  for  use,  delete  the  desired  locations,  and  save  the  file 
back  to  disk.  The  LOCATIONS|DELETE  dialog  box  is  identical 
to  the  LOCATIONS|ADD  and  LOCATIONS|EDIT  dialog  boxes 
with  the  exception  that  the  Save  button  has  been  replaced  with  a 
Delete  button.  You  select  a  location  to  delete  just  as  you  do  a 
location  to  edit,  buy  using  the  pull-down  list  box  labeled 
"Description". 

The  Run  Menu 

The  run  menu  is  the  heart  of  MOONLITE.  It  is  here  that  you  will 
choose  the  output  you  desire  and  initiate  the  dialog  boxes  for  the 
different  Run  options.  The  Rim  menu  looks  like  this: 


MOON  I  II  I 


file  Edit  Locations  mm 

•yf.  •  V  -4  m^^pon>eteil 

ijlf  M  I*  ®  ^  Position  Chart 

tM . .  ’ .  ‘  flally  Events 


Run  |  Calendar 

The  RUN|CALENDAR  option  is  probably  the  most  used  option  of 
MOONLITE.  You  use  this  option  to  generate  a  light  level  planning 
calendar. 

This  option  is  not  yet  fully  implemented  and  will  be  further 
expounded  upon  when  completed. 

Run  |  Spot  Detail 

The  RUN|SPOT  DETAIL  option  is  used  to  access  information 
about  a  particular  location  at  a  particular  time.  This  option 
requires  you  to  choose  a  location,  a  date,  and  a  time.  It  returns  the 
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azimuth,  altitude  and  illuminance  of  the  sun  and  moon,  the  total 
illuminance  of  the  sun  and  moon  combined,  and  the  phase  of  the 
moon. 

You  may  choose  to  look  at  many  different  locations,  dates,  or 
times  before  closing  this  dialog.  Each  time  you  change  any 
parameter,  MOONLITE  will  recalculate  the  data  on  the  fly  and 
display  the  results.  When  you  are  finished  with  the  dialog,  click  on 
the  DONE  button. 

If  you  wish  a  print-out  of  the  data,  click  on  the  PRINT  button. 
MOONLITE  uses  the  default  printer  selected  for  Windows. 

A  HELP  button  is  provided  should  you  have  any  question  about 
any  option  or  parameter  in  the  Spot  Detail  dialog  box. 


Run  |  Position  Chart 

This  option  is  not  yet  fully  implemented  and  will  be  further 
expounded  upon  when  completed. 


Run  |  Daily  Events 


The  RUN|DAILY  EVENTS  option  is  used  to  access  information 
about  a  particular  location.  The  option  requires  you  to  select  a 
location  and  a  date.  MOONLITE  will  respond  with  the  time  of 
Sunrise,  Sunset,  Moonrise,  Moonset,  meridian  passage  of  both  the 
sun  and  moon,  and  the  times  of  the  beginning  and  end  of  civil  and 
nautical  twilight. 

If  you  wish  a  print-out  of  the  data,  click  on  the  PRINT  button. 
MOONLITE  uses  the  default  printer  selected  for  Windows. 


A  HELP  button  is  provided  should  you  have  any  question  about 
any  option  or  parameter  in  the  Spot  Detail  dialog  box. 


The  Help  Menu 

This  option  is  not  yet  fully  implemented  and  will  be  further 
expounded  upon  when  completed. 


APPENDIX  B:  SOURCE  CODE 


ll 

II  Copyright  (c)  1994  Michael  t  Letter 
II  Al  rights  raservad. 

II 

«ncMa"zapp.hpp" 

das*  BmpShowPane :  public  zPane  { 
zBMmap  *bmp; 
zBNmapOisptay  "bmpdtsp; 
BOOLfleOpan; 
pubic; 

BmpShowPana(zWndow*.  zSizer*): 
-BmpShowPanaO: 
void  <*sptay(ehaO; 
fntdraw(zOrawEvt*); 

): 
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CONSTANT. H 


r 


constants. h 

Constants  nssdsd  woonBts.cpp  and  associatsd  INas 


. . . ** . . . / 

MhdafconstanLh 
Maflna  constant 

char  -monthsQ  «  f Jan".  Tab*.  “Mai",  -Apr*.  "May*,  ■Jun'.'JuT.  -Aug*.  "Sap*.  “Oct*,  “Nov*.  “Dae",  0}; 

char  Mays280  -  fOI",  *02*,  TB".  *04*.  "OS*.  “06*.  *0 7",  "06*.  "09",  10". 

■11*.  -12".  -13“.  *14".  "IS",  "1«".  "17".  *18".  “19*.  m20‘, 

■21",  “22-.  •23".  -24*.  *25*.  *28*.  *2r,  *28*.  0}; 

char  *days290  ■  {W.  'W.  *03*.  *04*.  *05*.  *08*.  *07*.  *08*.  *09“ ,  *10*. 

ir,  *12*.  “13*.  *14".  *15“.  -18".  "17*.  -18".  -19".  *2 O’. 

-21*.  -22-.  -23".  -24-.  -25*.  -28*.  *27”.  -28“.  -29*.  0}; 

char  *days30Q  ■  fOI".  “02*.  *03*.  "04“.  “05*.  “06*.  "07*.  *08-.  "09*.  “10“. 

-11".  -12-.  -13“.  *14*.  -15-.  “IB*.  “I  r,  *18-.  -19*.  *20*. 

*21".  -22“.  -23".  -24“.  "25".  *28*.  "2 7",  ”28 ",  -29-.  *30*.  0}; 

char  *days31Q  «  fOI",  -02".  *03*.  “04".  "05-.  *08*.  *07*.  *08* ,  "09T.  "10*. 

-11".  -12“.  -13".  *14-.  “15*.  “IB*.  “I  7".  -18*.  -19-,  -20*. 

-21*.  -22".  “23-.  -24“.  -25*.  -26*.  "27“,  -28-,  -29",  "30". 

■31".  Q}; 

char-yaareO  ■  {  '1886-.  1987",  “1988“.  “1989“.  -1990",  “1991“,  “1992",  “1993*.  ’1994*,  “1995*.  “1996*. 
-1997-,  -1998",  “1999",  “200 (T.  -2001*.  *2002*.  "2001".  *2002“,  -2003",  *2004*. 

■2005*.  0}; 

char  "hoursQ  ■  {W.  *01*.  *02*.  "03*.  *04’ ,  *05".  *06*.  -07*.  "08*.  *09*. 

"«r.  -11".  "12*.  -13-,  -14".  "15*.  *16",  *17*.  *18*.  *19*. 

-20*.  *21*.  -22".  *23*.  -24".  0}; 

char  “minutasO  -  {  "00".  "01".  -02".  "03",  *04*.  *05*.  "06*.  “07*.  *08",  *09*. 

KT,  -11".  "I 2",  -13-,  -14*.  -15*.  “IS".  17".  18*.  *19*. 

*20*.  -21*.  -22*.  *23",  *24-.  "25*.  -26*.  *27*,  *28-.  -29 ", 

*30 ",  -31*.  "32".  *33".  -34".  -35",  -36*.  *37*.  -38".  -39*. 

"4<r.  -41".  -42*.  *43*.  *44".  *45*.  "46",  *4 7",  "48*.  *49*. 

-50".  -51".  -52".  -53",  *54",  -55",  -56",  *5 7".  -58",  *59*. 

Q>; 

char  -rasolutionQ  ■  fl*,  "5".  10".  *15*.  0}; 
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r  ,■■  i- 


Char  *OMToCMQ  -  {  "00".  "01".  "02".  "03".  "04".  "05",  "08".  "07".  "06".  "09". 
"10".  11".  "12".  0}; 


ftndf  //Mine  constant 


DEFINES. H 

/•****••*** 

***** 


constants.h 

Constants  needed  mooniite.cpp  and  associated  files 


«****/ 

#ifhdef  definesh 

#define  CM_POPUPITEM  101 

^define  definesh 


#define  TRUE  1 

#define  FALSE  0 

#define  MENUMAIN  100 

#define  ID_MENU_POSTTION  1 1 8 

^define  IDMENUFILENEW  101 

#define  IDMENUFILEOPEN  1 02 

#define  IDMENUFILESAVE  1 03 

#define  IDMENUFILESAVEAS  104 

#define  IDMENUFILEPRINT  1 05 

#define  IDMENUFILEPAGESETUP  106 

#define  IDMENUFILEPRINTERSETUP  107 
#define  IDMENUFILEEXIT  1 08 

#define  IDMENUEDITUNDO  109 

#define  ID_MENU_EDITCUT  110 

#define  ID_MENU_EDITCOPY  1 1 1 

#define  1D  MENU  EDITPASTE  112 

#define  ID_MENU_LOCS_ADD  1 1 3 

#define  ID_MENU_LOCS  EDIT  114 

#define  IDMENULOCSDELETE  1 1 5 

#define  ID_MENU_CALENDAR  116 

#define  IDMENUSPOTDAT  A  1 1 7 
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#define  ID_MENU_DAIL  YE  VENTS  1 1 9 

#defroe  ID_MENU_HELPINDEX  120 

#definc  IDMENUHELPKEYBOARD  1 2 1 

#define  IDMENUHELPCOMMANDS  122 

#definc  ID_MENU  HELPPROCEDURES  123 

#define  ID_MENU  HELPUSINGHELP  124 

#dcfmc  ID_MENU_HELPABOUT  125 

#definc  DIALOG_SETONGS  200 

#dcfinc  ID_S_BEGINMONTH  201 

^define  ID_S_BEGINDAY  202 

#definc  ID_S_BEGINYEAR  203 

#dcfine  ID_S_BEGINHOUR  204 

#dcfinc  IDSJ3EGINMIN  205 

#definc  IDSENDMONTH  206 

#define  IDSENDDAY  207 

#definc  IDSENDYEAR  208 

#definc  IDSENDHOUR  209 

#dcfine  IDSENDMIN  210 

#define  ID_S_LOCATION  211 

#dcfine  IDSTHRESHOLD  212 

#definc  IDSPERIOD  213 

#defme  ID_S_FAST  214 

#define  ID_S_ACCURATE  215 

#define  IDSLOCAL  216 

#dcfine  ID_S_GREENWICH  217 

#define  ID_S_PRINT2FILE  2 1 8 

^define  DIALOG_LOCATIONS  300 

#definc  ID_L_DESC  301 

#define  ID_L_GMT  302 

#define  ID_L_LATDEG  303 

#define  IDLLATMIN  304 

#define  ID_L_N  305 

#define  ID_L_S  306 

^define  1D_L  LONDEG  307 

^define  ID_L_LONMIN  308 

#dcfinc  ID_L_E  309 

#dcfinc  ID  L_W  310 

#define  ID_L  DST  311 
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#define  LOCATION  DELETE 

400 

#defineID  LD  DESC 

401 

#dcfineID  LD  GMT 

402 

#defineID  LD  LATDEG 

403 

#dcfinc  ID  LD  LATMIN 

404 

#dcfinc  IDLDN 

405 

#define  ID  LD  S 

406 

#define  ID  LD  LONDEG 

407 

#dcfine  ID  LD  LONMIN 

408 

#define  ID  LD  E 

409 

#define  ID  LD  W 

410 

#dcfine  ID_LD_DST 

411 

#define  EDIT  LOCATION 

500 

#dcfincID  ED  DESC 

501 

#dcfinc  IDEDGMT 

502 

#define  ID  ED  LATDEG 

503 

#define  ID  ED  LATMIN 

504 

#defmeID  ED  N 

505 

#defme  ID  ED  S 

506 

#defineID  ED  LONDEG 

507 

tfdefine  IDEDLONMIN 

508 

#dcfinc  ID  ED  E 

509 

^define  ID  ED  W 

510 

^define  ID_ED_DST 

511 

#dcfinc  SPOT  DETAIL 

600 

^define  ID  SPOT  DESC 

601 

#dcfine  ID  SPOT  MONTH 

602 

^define  ID  SPOT  DAY 

603 

^define  ID  SPOT  YEAR 

604 

#dcfine  IDC  GROUPBOX3 

605 

#define  IDC  GROUPBOX4 

606 

#dcfineID  SPOT  HOUR 

605 

#dcfine  ID  SPOT  MIN 

606 

#dcfine  ID  SPOT  LOCAL 

607 

^define  ID  SPOT  ZULU 

608 

#definc  ID  SPOT  MAZ 

609 

#define  ID  SPOT  MAL 

610 

#define  ID  SPOT  MPR 

611 

#define  ID  SPOT  MIL 

612 

#dcfine  ID  SPOT  SAZ 

613 

#defineID  SPOT  SAL 

614 

tfdefme  ID  SPOT  SIL 

615 

#definc  ID  SPOT  TIL 

616 

#define  ID_SPOT_PRINT 

617 

#define  EVENTS 

700 

#defme  ID  EVENT  DESC 

701 

#define  ID  EVENT  MONTH 

702 

#defineID  EVENT  DAY 

703 

#defme  ID  EVENT  YEAR 

704 

#define  ID  EVENT  SUNRISE 

705 

#define  ID  EVENT  SUNSET 

706 

#define  ID  EVENT  SUNTIME 

707 

#define  ID  EVENT  SUN  ALT 

708 

#define  ID  EVENT  MOONRISE 

709 

#define  ID  EVENT  MOONSET 

710 

#define  ID  EVENT  MOONTIME 

711 

#define  ID  EVENT  MOONALT 

712 

#define  ID  EVENT  AMCIV 

713 

#defme  ID  EVENT  AMNAT 

714 

#defme  ID  EVENT  PMCIV 

715 

^define  ID  EVENT  PMNAT 

716 

#define  ID  EVENT  PRINT 

717 

#defineIDC  GROUPBOX1 

718 

#define  IDC  GROUPBOX2 

719 

#define  ID  EVENT  DAYLIGHT 

720 

#defme  ID  EVENT  LOCAL 

721 

#define  ID_EVENT_ZULU 

722 

#defme  POSITION 

800 

#deflne  ID  POS  DESC 

801 

#define  ID  POS  MONTH 

802 

#define  ID  POS  DAY 

803 

#defmc  ID  POS  YEAR 

804 

#dcfine  ID_POS  BHOUR 

805 

#define  ID  POS  BMIN 

806 

#define  ID  POS  DONE 

812 
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#define  ID_POS_LOCAL  809 

#define  ID_POS  ZULU  810 

#define  ID_POS  RES  811 

#dcfine  ID_POS_DONE  812 

#dcfinc  Position  Chart  900 

#define  POSCHARTLATLON  901 

#define  POS  CHART_DATE  902 

#definc  POS~CHART_ARRAY  903 

#dcfine  POS  CHART  PRINT  904 

#dcfinc  POS~CHART_DONE  905 

#dcfine  ICON  1  9999 

#define  DESCLENGTH  30 


#endif  //define  constant 


DIALOGS. H 

ll 

//dialogs.!) 

II 

ttfndef  dialogs,  h 
•define  dialogs.!) 

•include  "ll.h" 
•include  *zapp.hpp" 
•include  "defines.!)* 
•include  “H.h" 


class  C_dlflLlocations :  public  zFormDialog  { 
friend  class  locations  Jist; 
locations_list  *11; 
zString  .location; 
float  _latmin.  _tonmin,  _GMT; 
int  _E.  _N,  _DST  Jatdeg,  Jondeg; 
location.struct  data; 
zDefPush  Button  *Ok_Pressed; 

public: 

C  dtgjocationsflocationsjist  ‘^Window  *,zReald&); 

irrtdoOKO; 

char  locationO  {  retum(char  *)_k>cation;}; 
int  find/char  *); 

}: 


class  C_dlgJoc_del :  public  zFormDialog  { 

friend  class  locations  Jist; 

locations  Jist  *11; 

zString  .location; 

float  _latmin,  Jonmin,  .GMT; 

int  _E,  _N.  _DST,  .latdeg.  .londeg; 

location.struct  data; 

node  temp; 

zDefPushButton  *Ok_Pressed; 
zComboBox  *lbdesc; 
zlntEdit  *Latdeg,  londeg; 
zFloatEdit  *Latmin,  lonmin,  *UGMT; 
zCheckBox  *UDST; 
zRadioGroup  *UEW,  *UNS; 


C  dlgjoc.delflocationsjist  *,  z Window  \zResldA,  node*); 
char  locationO  { retum(char  *)_location;}; 
lbChanged(zEvent  *); 
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class  C_cflflLloc_edit :  public  zFormDialog  { 

Mend  class  locations Jiat; 

locations,  .st  *11; 

zString  .location; 

float  Jatmin.  .lonmin,  _GMT; 

int  _E,  _N,  _DST,  .latdeg,  .londeg; 

location.stiuct  data; 

node  "temp  ; 

zDefPushButton  *Ok_Pressed; 
zComboBox  *tb_desc; 
zlntEdit  *Latdeg,  *Londeg; 
zFloatEcHt  tatmin,  tonmin,  tIGMT; 
zCheckBox  *UDST; 
zRadioGroup  *UEW,  tINS; 

public: 

C.dlgJoc.editOocationsJist  *,  zWindow  *,zReskJ4,  node*); 
char  *k>cationO  { retum(char  *)_location;}; 
IbChangedfzEvent  *); 


class  C_dlg_spo*data :  public  zFormDialog  { 

locations.list  *11; 

zString  .location,  temp.desc; 

float  .latmin,  .lonmin,  _GMT; 

int  _E,  _N,  _DST,  .latdeg,  .londeg; 

float  .saz,  .sal,  _sil,  _maz,  .mal,  .mil.  _mpr,  .til; 

int  .month,  .day,  .year,  .hour,  _min,  .local; 

float  lo,  f,  iy,  z,  h; 

int  id,  ton.  test; 

locatkm.struct  data; 

zDefPushButton  *Ok_Prassed; 

zComboBox  *tb_desc,  *lb_month,  *1b_d>y,  *1b_year,  *lb_hour,  *lb_min; 
zFloatEdit  *saz,"*sal,  *sil,  *maz,  *mal,  *mil,  *mpr,  *tfl; 
zRadioGroup  *tocal; 


public: 

C_(*gL_»POtd*ta0ocationsJi»t  *,zResld&); 
//char  TocationO  { retum(char  *)_location;}; 
IbChangedfzEvent  *); 


}; 


class  C_<flfl_Event :  public  zFormDialog  { 

locations.list  *11; 
zString  .location,  temp.desc; 
float  latmin,  .lonmin,  _GMT, 
int  _E,  _N,  _DST,  .latdeg,  .londeg; 

float  sr,  .sst,  _st,  _sa,  _mr,  _ms,  _mt,  _ma,  _ac,  .an,  _pc,  _pn,  _dl; 
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int  .month,  .day,  .year,  .hour,  _min,  .local; 

float  to,  f,  iy,  z,  h; 

int  id,  bn,  test; 

tocation.struct  data; 

zDefPushButton  •Ok.Presaed; 

zComboBox  1b  date,  Ib.month,  Ib.day,  1b_year,  Ib.hour,  Ib.min; 
zFloatEdit  *ar,  *sst,  **t,  *sa,  *mr,  *ma.  *mt,  *ma,  *ac,  *an,  *pc,  *pn,  *dl; 
zRadioGroup  local; 

public; 

C_dlg_Event(tocations_list  *,zRe*ld4); 

//char  locationO  { ratum(char  *)_tocation;}; 

IbChangedfzEvent  *); 


data  C_dlg_Pos :  public  zFormDialog{ 
zPushButton  *Done; 

zComboBox  1b  dose,  Ib.month,  Ib.day,  *to_year,  Ib.rea, 
Ib.bhour,  Ib.bmin,  Ib.ehour,  Ib.emin; 
zRadtoGroup  local; 
locations  .list  *»; 
zString  .location,  temp.desc; 
float  Jatmin,  _lonmin,  _GMT ; 
int  .E.  _N,  _DST,  .latdeg,  .londafl; 
float  .saz.  .sal,  .ail,  _maz,  _mal,  _mH,  _mpr, .«; 
int  .month,  .day,  _yaar,  .bhour,  _bmin,  .ehour,  .emin,  .local,  .res; 
float  to,  f,  iy,  z.  h,  delta; 
int  id.  bn,  test; 
zString  monthstr; 
zString  daystr, 
zString  yearstr, 
zTextPane  *tp; 
zString  temp,  trash; 
int  count; 

tocation.stnjctdata; 

//pdnt_desc(zTextPane  *); 
public: 

C_dlg_P<»Oocations_list  *,  zResIdA); 
int  doDone(zEvent  *); 
lbChanged(zEvent  *); 


/•class  POS.Show :  public  Pos.Base  { 

zPushButton  *Ok_Pressed; 
zComboBox  ‘array; 
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pnhMf- 

POS_Show(zR«tkl&); 
zComboBox  ‘dicpiay  array; 

}; 

V 


fendif //dialogs,  h 
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FASTAL.H 


festcal.h 

Haa rrWmji  Iminllmanlallnii  mC  AUajMmw  474 

uescnpuon.  impornentsuoo  or  Aigonuins  or  uircuiy  i  n 
Input  As  shown  for  each  member  function. 

Output  reference  variables  used  for  ease  of  data  transfer 

Comments: 

Michael  T.  Lester  05  Nov  1993 

Modified  21  Feb  1994 


iifhdef  festal. h 

-  < - *-i  l 

VHvmo  ivsuM.n 

class  fast_algorithm 

{ 

private: 

double  RD.  DR,  CE.  SE.  A{4],  Bp],  U,  SI,  Cl,  J,  Z0,  TD.  T,  AS1,  Y. 
double  E,  D,  G.  LS.  SD,  DS,  V,  Q,  W,  SB,  CB,  X,  0,  S,  CD.  SV.  P; 
double  CS.  AZ.  HA,  U.  M,  IS1,  IL,  OT,  R,  C; 
int  K; 

public 

void  idum(  float  LO,  //longitude,  degrees,  E*+,  W*- 


float 

F, 

//Latitude,  degrees,  N*+,  E— 

float 

tY, 

//Year  (####) 

int 

IM,  //Month  (01  - 12) 

int 

ID,  //Day  (01  -  31)  assumed  correct  for  calendar 

float 

z. 

//Time  format,  0*Zulu,  1=kxaf  (zone) 

float 

H, 

// Hour,  24  hr  format,  zulu  or  local  as  above 

floats 

saz, 

//result,  Sun  Azimuth 

floats 

sal, 

//result,  Sun  Altitude 

floats 

«fl. 

//result.  Sun  Illuminance 

floats 

maz, 

//result,  Moon  Azimuth 

floats 

mat, 

//result,  Moon  Altitude 

floats 

mil, 

//result.  Moon  Illuminance 

floats 

mpr, 

//result,  Moon  Percentage  of  Full 

floats 

tu 

//result.  Total  Illuminance 

); 
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voidevenK  float  LO,  //Longitude,  degrees,  E*+,  W»- 

Aoet  F.  //Latitude,  degree*,  N-+.  E>- 

float  IY,  //Year  (####) 

int  IM,  //Month  (01  •  12) 

int  ID,  //Day  (01  -  31)  assumed  correct  for  catandar 

float  Z,  //Tima  format  0*Zuki.  1«tocal  (zona) 

float  H,  //Hours  from  zutu 

float*  sr,  // result  Sun  Rise 

float*  sst  //result  Sun  Sat  Time 

float*  st  /Aesuti,  Tima  of  Sun  Meridian  Passage 

float*  sa,  //result  Altitude  of  Sun  Meridian  Passage 

float*  mr,  //result  Moon  Rise 

float*  ms,  /Aesuti,  Moon  Sat 

float*  mt  //result  Time  of  Moon  Meridian  Passage 

float*  me,  //result  Altitude  of  Moon  Meridian  Passage 

float*  ac.  //result  Morning  Civil  Twilight 

float*  an,  //result  Morning  Nautical  Twilight 

float*  pc,  //result  Evening  CNfl  Twilight 

float*  pn,  //result  Evening  Nautical  Twilight 

float*  <fl  //result,  length  of  daylight 

): 


fendif  //fldaffoa  fastath 
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LL.H 


// 

//l.h 

II 

//  header  fife  for  H.cpp,  the  linked  Net  routines  for  storing  the  location  date. 

II 

•MkndefM  h 
«definel_h 

vmouM  xapp.npp 
ifndude  'defines.h' 

struct  location  struct 

{ 

char  descfDESC.LENGTH  + 1]; 
float  latdeg; 

» - A  Ini— .T 1 1 

now  wren, 
kit  NS; 
float  tondeg; 

M - *  Innmla 

TvOaX  KXVTM1, 

kit  EW; 
float  GMT; 
kit  DST; 

}; 

class  node 

{ 

public; 

nodeO; 

-nodeO: 

k>cation_struct  ‘data; 
node ‘next; 

}. 


r  Class  locations  handles  all  aspects  of  adding,  editing,  saving  and 
returning  kifortnaflon  from  the  locations  file. 

V 

dess  locations  list 

{ 

private: 

zString  datafile; 

node  *head,  *temp_ptr 

kit  list_(Jirty; 

public 

locations  listO; 

/HocattonsJstO; 
intdearO; 
kit  saveO; 

kit  saveas(z\Mndow  *pvrin); 
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M  open_dialog<z\Mndow  *pwin); 

MopenQ; 

M  edK_dMog(zMndow  *pwin,  locations J»t  *); 
in*  add_dMo0(zWndow  *pwin,  locations Jiat  *); 
M  add_recocd{locatk>o_ttnjct  *); 

M  daiete_cNalog(z\Mndow  *pw»n,  loca6on«_ltst  *); 

node*  f)nd(zSthng  4); 

int  peek_«*t_dirtyO  {return  tet_drty;}; 

void  reeet_pointorO{tenip_ptr  *  head;}; 

char*get_nextO; 


•endif  //define  H.h 


LOCDATA.H 


u 

//tocdrta.h 

H 

Ktfndef  tocdata.h 
fdefirw  tocdeta-h 


hxatfon_«truct  tocdetafl  « 

fCA:  MCAS  Tutfin*,  33, 42.2, 1. 117, 49.6, 1, 8. 1. 1}, 
fCA:  NAS  Noth  Wand*,  32, 41.9. 1, 117, 12.8, 1, 8, 1, 1}. 
fCA:  NAS  Miramar",  32. 52.1, 1. 117, 08.5, 1. 8. 1. 1}. 

TCA:  ALF  Hunter  U9«tt  (TUSI)*.  36, 0.0. 1. 121. 14.0. 1. 8, 1. 1} 

}; 

#endtf  //define  locdata.h 
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MENUFRAM.H 

II 

//monuftame.h 

II 

ftimtof  manufram.h 
Maine  menufram.h 

Mndude  “zapp.h' 

class  MenuFrame :  public  zAppFrame{ 
zTextPane*  tp; 
pubic: 

MenuFrame{zWlndow*  parenUSizer*  siz, DWORD  win  Style, const  char*  title); 
-MenuFrameO; 

virtual  hit  command(zCommandEvt  *); 
int  doExM(zCommand£vt  *); 
int  AddLocation(zCommandEvt  *); 
doOkO; 

); 

*endif //menufram 
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ROUTINES. H 


// 

// routines.h 

II 

•Mhdef  routine«_h 
•define  routine*_h 

•indude  W 

doss  routines  { 

private: 

location* Jiat  *11; 
public: 

routines(iocationsJist  *tet_in); 

int  spotdataO; 
inteventO; 
int  posibonO; 

}: 


•endif //routines_h 
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BMPSHOW.CPP 


H 

II  Copyright  (c)  1962, 1993  Inmark  Development  Corp 
//  AB  rights  reserved. 

II 

Mnchida  "zapp.hpp* 
tNndude  ’bmpshowh" 

BmpShowPane::BmpShowPane(zVVindow  *w.  z  Sizer  *s)^Pane<w,s)  { 
bmp  *  0; 
bmpdisp  ■  0; 

INeOpan  -  FALSE; 

} 

BmpShowPane::-BmpShowPaneO  { 
if  (bmpdisp)  delete  bmpdisp; 

} 

void  BmpShowPane:  :disptey(char  *name)  { 

If  (bmpdisp)  delete  bmpdisp, 
bmp  *  new  zBNmapfcanvasO,  name); 
bmpdisp  *  new  zBitmapDispiay(bmp); 
fHeOpen  ■  TRUE; 
canvasO->setDirtyO; 

} 

int  BmpShowPane:;draw(zDrawEvt*)  { 
if  (INeOpen)  { 

zDimension  dm  ■  bmp->sizeO; 
canvasO-HockO; 

bmpdisp->copyTo(canvasO,0,Oldm.widthO,dm.heightO,0,0); 

canvasO->unk)ckO, 

} 

return  1; 

} 
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DIALOGS. CPP 


// 

//  diaiogs.cpp 
II 

II  routines  for  diaiogs.cpp 

// 

include  <string.h> 
•include  <math.h> 
•include  <stdlib.h» 
•include  "constant.il" 
•include  "dialogs.h" 
•include  "ll.h* 

•include  "fiastal.h” 


C_dlg_locations::C_dlg_iocations(kxationsJist  *all,  z Window  *w,zResld&  rid) 

:  zFonmDialog(w,rid)  { 

II  *  all; 

location  = 

IGMT  «  0.0; 

Jatdeg  =  0; 

_latmin  =  0.0; 

JE  =  ID_L_W; 

Jondeg  *  0; 

Jonmin  =  0.0; 

_N  «  ID_L_N; 

_DST  =  1 ; 

Ok_Pressed  =  new  zDefPushButton(this,  IDOK); 

Ok_Pressad->setNot?tyClicked(this,  (ClidcProc)4C_dlg_locafons::doOK); 


new  zStringEdit(this,  ID_L_DESC,  &_location.  "!(30)*); 

new  zlntEdit(this,  ID_L_LATDEG,  SJatdeg,  "00*.  FLD_NOTREQUIRED); 

new  zFloatEdrt(this.  IDJ-_LATMIN  ,  AJatmin,  "00.00",  FLD_NOTREQUIRED); 

new  zlntEdit(this,  ID_L_LONDEG,  SJondeg,  "000",  FLD_NOTREQUIRED); 

new  zFloatEdit(thi8 , Td_L_LONM I N ,  &Jonmin,  "00.00",  FLD_NOTREQUIRED); 

new  zCheckBox(this,IDl.L_DST ,  &_DST); 

new  zRadioGroup(this,  ID_L_E,  ID_L_W,  &_E); 


newzRadioGroup(this,  ID_L_N,  ID_L_S,  &_N); 

new  zFloatEditythis,  ID_L_GMT  ,  &_GMT,  "0.0* ,  FLD_NOTREQUIRED), 


showO; 

modalO; 

> 

int  C_dlg_locations::doOK0 
*  if(!zFormDialog::storeDataO) 

zMessage  mess(app->rootWindowO,"A  Description  is  Required" ,  ,MB_OK), 


setFocusO; 

} 

else  if  ((Jatdeg  <  0 )  ||  (Jatdeg  >  90 ) ) 

{ 

zMessage  mess(app->rootWindowO, "Degrees  Latitude  must  be  between  0  &  90’,~,MB_OK); 
setFocusO; 

} 

else  if  ((Jondeg  <  0 )  ||  (_londeg  >  179 ) ) 

{ 

zMessage  mess(app->rootWindowO, "Degrees  Longitude  must  be  between  0  & 
179".~MB_OK); 

setFocusO; 

} 

else  if  ((Jatmin  <  0 )  ||  (Jatmin  >  59 )  ||  (Jonmin  <  0 )  ||  (Jonmin  >  59 )) 

{ 

zMessage  mess(app->rootWindowO, "Minutes  of  Latitude/Longitude  must  be  between  0  & 
59“,“.MB_OK); 

setFocusO; 

} 

else  if  (LGMT  <  0.0 )  ||  (_GMT  >  12.0 )) 

{ 

zMessage  mess(app->rootVVSndowO,"GMT  Offset  must  be  between  0  and  12","",MB_OK); 
setFocusO; 

} 

else  if  (ll->find(_location)) 

{ 

zMessage  mess(app->rootWindowO."This  Location  is  already  defined.NnPlease  select  another 

name", 

"Duplicate  Name!",MB_OK); 
setFocusO; 

} 

else 

{ 

shutdownO; 

retum(l); 

} 

} 


C  dlg_loc  del::C  dlg_loc_del(locations  list  "all,  z Window  *w,zResld&  rid,  node  "temp) ;  zFormDialog(w,rid) 

{ 

II *  all; 

_k>cation«”  [Choose  Location  To  Deletef; 

_GMT  *  0.0; 

Jatdeg  *  0; 

.latmin  *  0.0; 

_E  » ID-LD-W; 

Jondeg  *  0; 
lonmin  «  o.O; 

N*ID  LD  N; 

_DST  ■  0; 

Latdeg  *  new  zlntEdit(this,  ID_LD_LATDEG,  &_latdeg); 
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Latmin  ■  new  zFloatEdit(this,  ID_LD_LATMIN  .  5_latmin,  *#*#.###*,  FLD_NOTREQUIRED); 
Londeg  »  new  zfntEditflhis,  ID_LD_LONDEG,  4_iondeg); 

Lonmin  =  new  zFloatEdit(this,  ib_LDJ.ONMIN,  4_tonmin,  •*##.###*,  FLD.NOTREQUIRED); 
UOST  *  new  zCheckBox(this,ID_LD_DST,  4.DST); 

UEW  *  new  zRadioGroup(this,  ID_LD_E,  ID_LD_W,  4.E); 

UNS  =  new  zRadk>Group(this, 10  LD  N,  ID~LD~S.  4_N); 

UGMT  *  new  zFloatEdit(this,  ID.LD.GMT,  4 J3MT,  *0.0*.  FLD.NOTREQUIRED); 

Ibjdesc  *  new  zComboBox(this,ID_LD_DESC,  4Jocation); 
while  (temp  !*  NULL) 

{ 

lb_desc->add(temp->data->desc); 
temp  =  temp->next; 

} 

lb_desc->add(*  [Choose  Location  To  Delete]*); 
lb_desc->setT oDefauitO; 

lb_desc->8etNotifySelChange(thi8,  (Notify  Proc)4C_dlg_loc_del: : IbChanged) ; 

showO; 

modalQ; 


int  C_dlg_loc  del::lbChanged(zEvent  *ce) 

{ 

// 1  have  no  idea  why  I  have  to  reset  the  zString  in  this  place 
//  but  if  I  don't,  it  truncates  the  value  to  15  after  the 
//first  iteration. 

.location  *  * 

lb_desc->getEditT ext(_locatk>n) ; 
node  ‘desired  =  ll->find (.location); 
if  (desired) 

{ 

.latmin  =  desired->data->latmin; 

.latdeg  *  desired->data->latdeg; 

.lonmin  *  desired->data->lonmin; 

.londeg  =  desired->data->k>ndeg; 

.GMT  »desired->data->GMT; 

_DST  =  desired->data->DST; 

_E  *  desired->data->EW  +  409; 

_N  *  desired->data->NS  +  405; 

Latdeg->setToDefauttO; 

Londeg->setToDefauttO; 

UDST->setToDefaultO: 

UGMT ->setToOefaultO; 

UEW->setToDefaultO, 

UNS->setT  oDefauitO : 

Lonmin->setToDefaultO; 

Latmin->setT  oDefauitO; 

} 

} 

C_dlg_k>c_edit::C.dlg_loc_edit(locations_list  *all,  z Window  *w,zResld4  rid,  node  *temp)  : 
zFormDialog(w,rid)  { 

II  *  all; 
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.location  *  “  [Choose  Location  To  Edit]*; 

_GMT  *  0.0; 

Jatdeg  «0; 

latmin  ■  0.0; 

_E  -  ID_ED_W; 

_londe8*0; 
lonmin  «  0.0; 

N  *  10  ED  N; 

.DST-O; 

Latdeg  *  new  zlnt£drt(this,  ID  ED  LATDEG,  &  latdeg); 

Latmin  ■  new  zFloatEdit(this,  Ib.ED.LATMIN  ,  SJatmin,  *###.###*,  FLD.NOTREQUIRED); 
Londeg  *  new  zlntEdit(this,  ID  ED  LONDEG,  &  londeg); 

Lonmin  -  new  zFloatEdH(tWsJD  ED  LONMIN,  &  lonmin,  *###.###",  FLD  NOTREQUIRED); 
UDST  *  new  zCheckBox(this,ID  ED  DST.&  DST); 

UEW  «  newzRadtoGroufXthis.  ID  ED  E,  ID  ED_W,  &  E); 

UNS  ■  new  zRadk>Group<this.  ID_ED  N.  ID_ED  S,  &  N); 

UGMT  «  new  zFtoatEdit(this,ID_ED_GMT,  &_GMT,  *0,0*.  FLD.NOTREQUIRED); 

Ib.desc  *  new  zComboBox(this,ID_ED_DESC,  A.location); 
while  (temp  I*  NULL) 

{ 

lb_desc->add(temp->data->desc); 
temp  »  temp->next; 

} 

lb_desc->add("  (Choose  Location  To  Edit]*); 
lb_desc->sefToDefaultO; 

lb_desc->setNotifySeiChange{this,  (ltotifyProc)&C_dtg_toc_edit::lbC  hanged), 

showQ; 

modalQ; 


into  dlg_loc  edit::lbChanged(zEvent *ce) 

{ 

II I  have  no  idea  why  I  have  to  reset  the  zString  in  this  place 
//  but  if  I  don't,  it  truncates  the  value  to  1 5  after  the 
//first  iteration. 

.location-"  *; 

lb_desc->getEditText(Jocation); 
node  ‘desired  -  ll->find(Jocation); 
if  (desired) 

{ 

.latmin  -  desired->data->latmin; 

.latdeg  -  desired->data->latdeg ; 

.lonmin  ■  desired->data->k>nmin; 

.londeg  *  desired->data->londeg; 

.GMT  -  desired- >data->GMT ; 

DST  « desired-»data->DST; 

_E  -  desired->data->EW  +  509; 

_N  >  desired->data->NS  +  505; 

Latdeg->setToDefauitO; 

Londeg->setToOefaultO; 

UDST->setToDefaultO; 
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UGMT -»setToDetoult(); 

UEW-»«etT oOeteuttO: 

UNS->*etToDetaultO; 

Lonmin->setT  oOefauttO: 

Latmin->8etToDefaultO; 

} 

> 

C_dlg_spotdata::C_dig_spotdata(locations  Jist  *aH,  zReald*  rid) 

:  zFormDiatog(app->rootWindowO,rid)  { 

II  *  all; 

location  *  *  [  Choose  Location 

_GMT  *  0.0; 

Jatdeg  *  0; 

latmoi  *  0.0; 

JS  *  IO_LD_W; 

_londeg  *  0; 

lonmin  *  0.0; 

_N  •  ID  LD  N; 

DST  *  0; 

.local  *  ID.SPOTJLOCAL; 

_day  *  0; 

saz  *  new  zFtoatEdit(thra,  ID_SPOT_SAZ .  4_saz,  “###.###“,  FLD.NOTREQUIRED); 
sal «  new  zFloatEdit(this,  ID  SPOT  SAL .  &  sal.  “-###.###■,  FLD  NOTREQUIRED); 
sil ■ new zFtoatEdit(th«s,  ID  SPOT  SIL.4  sit. ‘immm.mr,  FLD.NOTREQUIRED); 
maz  -  new  zFloatEdit{this,  ib.SPOT  MAZ  .  4_maz,  FLD.NOTREQUIRED); 

mal  *  new zFk>atEdit(this,  ID  SPOT  MAL.&  mal,  *-###.###“,  FLD  NOTREQUIRED); 
mil  =  new  zFtoatEdit(thia,  ID_SPOT_MIL .  &  mil.  "#######.###“,  FLD.NOTREQUIRED); 
mpr  »  new  zFloatEdit(this,  ID_SPOT_MPR  .  4  mpr,  -###.##r,  FLD.NOTREQUIRED); 
til  -  new  zFloatEdit(this,  ID_SPOT_TIL .  4JH,  IHMUHHUt.imtr,  FLD.NOTREQUIRED); 

Ib.desc  *  new  zComboBox(this,  ID_SPOT_DESC,  &_location); 

H->resetjDOinter0; 
temp.desc  *  B->get_nextO; 
while  (temp  desc  1=  "") 

{ 

lb_desc->add(temp_desc) ; 
temp.desc  *  IF>get_nextO; 

> 

lb_desc->add(*  [  Choose  Location  ]"): 
lb_desc->setT oDefaultO ; 

lb_desc->satNotifySetChange(this1  (NotifyProc)&C_difl_spotdata : :  IbChanged) ; 

Ib.month  ■  new  zComboBox(tWs,  ID.SPOT.MONTH,  4_month); 
lb_monttv>addCharStrings(months) ; 

lb_month->setToDefauttO; 

b_month->setNotifySelChange<this,  (hk>tifyProc)4C_dlg_spotdata;:K>Changed); 

to.day  -  new  zComboBox(this,  ID_SPOT_DAY,  4_day); 
to_day->addCharString«(day*31  ); 
fc_day->setT oDefaultO; 

lb_day->setNotifySe<Change(this,  (NotifyProc)4C_<flg_spotdata;:lbChanged); 
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tbjw  «  new  *Combo8ox(th»,  ID_SPOT_YEAR,  &_year); 

lb_yeaf-»addChorStrings(years); 

lb_year->setT oOetauKO ; 

to_ya«r-»«atfte«ySalCh«nge(thi«,  (NotifyPmc)&C_c^spot<^::lbChanQod); 

Ib.hour  *  new  zComboBox(this,  ID_SPOT_HOUR,  &_hour); 

lb_hour-»addCherString»(houf»); 

lb_hour->setToDefauHO; 

lb_hour-»«elNoWySelChange(tWe,  (No%Proc)&C_dlg_«potdata::lbChanged); 

tt>_min  *  new  zComboBax(this,  ID_SPOT_MIN,  4_m»n); 

lb_m(n->8<ldCh«fStrino*<mtnutM); 

fb_min->setToOefaultO; 

lb_min->»etNottfySeJChenfle(th»,  (hkrtifyProc)4C_dtg_8potdata::lbChanged); 

local  ■  new  zRadioGroupCIhis,  ID_SPOT_LOCAL,  ID  SPOT  ZULU,  &  local); 
kx»L>«etNotifyCBcked(tN«,  (NotifyProc)AC_dlfl_8potdata::lbChanged); 


showO; 

modalQ; 


int  C_dHL.spotdata::lbChanged(zEvent  *ce) 

{ 

_month  *  lb_month->setect»onO  +  1; 
_day  ■  Ib_day->8election0; 

_year  « lb_year->seiectionO  + 1993; 
_hour  ■  lb_hour->selectionO; 

_min  *  Ib_mm->«election0; 
switch  (.month) 

{ 

case  1: 
case  3: 
caseS: 
case  7: 


case  10: 
case  12: 

{ 

lb_day->  reset 0; 

lb_day-»addChwStrings(days31); 
to_day->setT oDefauttO; 

i - «-■ 

); 

case  4: 
case  6: 


case  9: 
case  11: 


{ 

(b_day->resetO; 

to_day->eddCharStrings<days30) ; 
lb_day->serr  oDefauitO; 


81 


break; 

} 

case  2: 

{ 

lb  day->resetO; 

if  ( >toat(_ye»f  /  4)  —  (_year  /  4.0)  && 

I*  (_y*ar  /  400.0) ) 

{ 

lb_day->addChafStrings(days29); 


{ 

lb  day->addCbarStrings(days28); 

> 

lb  day->sefToDefautt(); 

) 

} 

storeOataO: 
if  (comptotodO) 

{ 

location  *' 

H>_desc->getEdttTextLlocation); 
node  *desirsd  «  li->ffnd(_k>cat»on); 
if  (desired) 

{ 

_latmin  *  de*ir©d->data->latmin ; 

_latdeg  »  desired->data->iatdeo; 

Jonmin  *  desired->dat*->kxwn(n, 

Jondeg  ■  desired>>data->londeg; 

_GMT  »desired->data->GMT; 

_DST  * desired->data->DST; 

JE  =  deslf»d->dStB->EW; 

_N  « desired->data->NS; 

) 

to*  londeg  +  Jonmin / 60.0; 
if  (_E)  to  **-1.0; 
f*  tatdeg  +  latmin/60; 

If  <_JN)  f  -1 .0; 

if  (.local  —  607)2*  TRUE; 

else  z-  FALSE; 

fast_algorithm  *aJg  «  new  fast.aigorithm; 
h  *  _hour  *  100  ♦  _min; 

aig->iflum(to,  f,  _year+1906,  jnortth+l,  _day+1,  z,  h,  _saz,  _sal,  _s«.  jnaz, 

saz-»serroOefauttO; 

sat->sefToOefauitO; 

sii->setT oDefsukO ; 

maz->aetToOefM4tO; 

mai->sefToOefBultO; 

mk->sefToOefaultO; 

mpr->sefToOefaukO: 

tt^sefToOefauNO; 

delete  aig; 


ftoat(_year  /  400) 


mal,  _mil,  _mpr,  _til); 


82 


> 

} 

C_(fla_Ev«fit:  C_dtfl_E vertOoc*tion*_list  *aU,  zResIdA  rid) 

:  zFormOialog(app^foofVVindow0.rid)  { 

>«aH; 

.location  *  *  [  Choose  Location  f; 

_GMT  *  0.0; 

Jatdag  *  0; 

~Mmin  *  0.0; 

_E  -  ID_LD_W; 

.londeg  *  07 
tonmin  *  0.0; 

N  « ID_LD  N; 

_DST  »  0; 

.local  -  ID.EVENT.LOCAL; 

.day  *0; 
h«0; 


sr  *  new  zFloatEdit(tM*,  ID.EVENT.SUNRISE,  S.v,  "0000" ,  FLD  NOTREQUIRED); 

•at «  new  zFtoatEdft(th«,  ID.EVENT.SUNSET,  A.sst,  *0000",  FLD.NOTREQUIRED); 

»t  *  new  zF)oatEdit(this,  ID.EVENT.SUNTtME,  A.st,  *0000",  FLD  NOTREQUIRED); 
sa  *  new  zFloat£d»t<thi*,  ID.EVENT.SUNALT,  A.sa,  ■•*###*,  FLD.NOTREQUIRED); 
mr  *  new  zFloatEdit(tha,  ID.EVENT.MOONR1SE,  &_mr,  *0000*.  FLD.NOTREQUIRED); 
ms  ■  new  zFtoatEditflhis,  ID.EVENT.MOONSET,  &  ms,  "0000*.  FLD.NOTREQUIRED); 
mt  *  new  zFtoatEdit(this,  ID.EVENT.MOONTIME,  A.mt,  “0000*,  FLD.NOTREQUIRED); 
me  ■  new  zFloatEdit(thi8, 1 D.EVENT.MOONALT,  4  me,  *-####",  FLD  NOTREQUIRED); 

ac  -  new  zFloatEdit(thi».  ID.EVENT.AMCIV,  S.ac,  "0000",  FLD  NOTREQUIRED); 
an  >  new  zFloatEdtt(this,  ID.EVENT.AMNAT,  4_an,  "0000*.  FLD  NOTREQUIRED); 
pc  *  new  zFloatEdK(this.  ID.EVENT.PMCtV,  & _pc,  *0000",  FLD.NOTREQUIRED); 

Pn  *  new  zFk>atEdtt(tW«,  ID.EVENT.PMNAT,  & _pn,  *0000*,  FLD  NOTREQUIRED); 
dl  «  new  zFtoatEdit(this,  ID.EVENT.DAYUGHT,  4_<fl,  *0000",  FLD.NOTREQUIRED); 

Ib.desc  ■  new  zComboBox(this,  ID.EVENT.DESC,  A.location); 

K->reset_pointer0; 
temp.desc  *  #->get_nextO; 
while  (temp.desc  !*  **) 

{ 

ib_desc->add(temp_desc); 
temp.desc  «  #->get_next0; 

) 

lb_desc->addf  ( Choose  Location  ]"): 
to_de*c->*etT oDefaultO ; 

lb_desc->*etNotifySeChange<thi* ,  (NotifyProc)4C_c»a_Event::tt)Changed); 


to.month  ■  newzComboBox(this,  ID.EVENT.MONTH,  A.month); 

b_month->addCharStrinQs(months); 

t)_month->*etT oOefaultO : 

fc_mon«h->setNc«ySelChange(IWs,  (NotifyProc)4C_dlflLEvent:toChanged); 

Ib.day  •  new  zCombo6ox(this,  ID.EVENT.DAY,  A.day); 
lb_day->addChafString*(day*3 1 ); 

Jb_day->serroDefauttO; 
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I>_dey->setNobfyS«K;har>fle(th«,  (N<^nx)4C_dlgLEw^:teCh«»g«J); 

lb_year  ■  new  zComtooBox(th*»,  ID_EVENT_YEAR.  &_year); 
R>_year->addCharStrings(yeart); 

(b_yew->*«(T oDefauttO, 

lb_year->setNotjfySelChange(th»s,  (ftot^Proc)&C_dKLEvert.:tbChana®d); 

local  *  naw  zRadtoGroup^this ,  ID_EVENT_LOCAL,  ID_EVENT_ZULU,  &_k>caQ; 
local->satNotifyCHcfcad(thisl  (NotifyProc)4C_dla_Event::toChan8od); 


showO: 

modaK); 


kit  Cjc*a_Evant:lbClianflad(zEvafit  *ca) 

_month  *  to_month->*alactionO  + 1: 
jday  *  *>_day->selectionO; 
jwr  «  lb_year-»selectionO  +  1993; 
switch  (_month) 

{ 

casal; 
case  3: 
case  5: 
casa7: 
case  8: 
casalO: 
case  12: 

{ 

Ib_day->reset0; 

llday->addCharStrings(days31  ); 
lb_day->setT oDefeultO; 
break; 

}; 

case  4; 


case  11: 

{ 

lb  day->resetO; 

lb_dBy->addCba^trinBS((Jays30); 
lb_day->setT oOetaultO ; 

Drew, 

> 

case  2: 

{ 

lb  day->resetO; 

If  ( «oat(_yaar  /  4)  —  (.year  /  4.0)  && 
I*  Lyear/ 400.0) ) 

lb  day->addCharStrings(days29); 
>" 


float(_year/400) 
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{ 

K>_dey->addChafStrings(dsys28); 

) 

lb_dey->setT  oOeteuHO; 

} 

} 

storeDeteO; 
if  (oomptatodO) 

{ 

Jocstion  « *  ■; 

to_de*c->getEdjtT ext(_location) ; 
node  'desired  *  9->flnd(_location); 
if  (desired) 

{ 

_latmin  *  desired->d«ta->latrnin; 

Jstdeg  *  desired->data->tatdeg; 

Jonmin  ■  desired- >dats->ionmin; 

_loodeg  *  desirod->data->tondeg; 

_GMT  *  desjred->data->GMT ; 

_DST  *  desired->data->DST; 

_E  -  desired->dsta->EW; 

_N  *  desired->data->NS; 

} 

to  «  kxxfeg  +  lonmin/60.0; 
if  (_E)  to 

f»  latdeg  +  latmin/60; 
if(_N)fV.1.0; 
if  (_iocal  721)  z  *  TRUE; 
else  z»  FALSE; 

fast_atgorithm  *alg  ■  new  fast_atgorithm; 

aig->event(k>1  f,  _yeer+1986,  _month+1 ,  _day+1 ,  z,  h,  _sr,  _sat.  _st,  _sa,  _mr,  ms.  _mt,  ma, 
_ac.  _an,  _pc.  _pn,  _dl); 

sr->setToDefaultO; 

sst->setToOefeuitO; 

st->setToDefeuitO; 

sa->se(ToOefsuK0; 

mr->setT oOefauitO ; 

ms->sefToOefeuitO; 

mt->sefToOeCeultO; 

me->serroOefeultO; 

ac->sefToOefauitO; 

en->setToOefeultO; 

po->se(ToOefaultO; 

pn->sefToOefsoitO; 

(M->sefToDefauRO; 

} 


// . - 

C_dKLPos:  :C_dJflL_PosOocetions_list  *sH,  zRestd&  rid) 

:  zFonmOMog(app->rooflMndow(),rid)  { 


.location  ■  *  ( Choose  Location  ]*; 

_GMT  *  0.0; 

Jatdeg  ■£>; 

Jatmin  ■  0.0; 

_E  -  ID_LD_W; 

.tondeg  «0; 

tonmin  «  0.0; 

_N  » ID.LD  N; 

_DST  •  0; 

.local « ID_POS_LOCAL; 

.day  *0; 

.res  *  2. 
h«0; 


Done  ■  new  zPushButton(this,  ID  POS  DONE); 
Done->«etNotjfyCHcked(thts,  (Clk*Procj&C_dlg_Pos::doDone); 

Ibjdesc  ■  new  zCombo8ox(this,  ID_POS__DESC,  Allocation); 

H->reset_pointer0; 

temp_desc  *  Il->get_next0; 

while  (temp  desc  !■  ~) 

{ 

ib_desc->add(temp_desc); 
temp  desc  *  H->get_nextO; 

} 

lb_desc->add("  [  Choose  Location  ]*); 
tb_desc->setT oDefauftO; 

lb_desc->setNottfySe»Char>oe(this1  (NotifyProc)&C_dlfl_Pos : :  IbC  hanged) ; 

lb_month  ■  new  zComboBox(this,  ID.POS.MONTH,  &_month); 

tb_month->addCharStrings(months); 

lb_month->setToDeteultO; 

lb_monttK»setNotifySelChange(this,  (NotifyProc)AC_dlg_Pos::lbChanged); 

lb_day  «  new  zComboBox(this,  ID.POS.DAY,  A.day); 
lb_day->addCharStrings(days3 1 )  ; 
lb_day->setT oDefauttO; 

lb_day->setNotitySelChange(this,  (No%Proc)AC_dlg_Pos::lbChanged); 

lb_year  ■  new  zComboBox(this,  ID.POS.YEAR,  &_year); 

lb_year->addCharStrings(years); 

lb_year->setT oDefsuttO ; 

tb_year->setNotifySeiChanae{this,  (NotifyProc)&C_dlg_Pos::lbChanged); 

to.bhour  »  new  zComboBox(this,  ID_POS_BHOUR,  A.bhour); 

ib_bhoor->addCharString«{houni); 

lb_bhour->sefToDetaultO; 

lb_bmin  ■  new  zComboBox(this,  ID_POS_BMIN,  A.bmin); 

lb_bmin->addCharStrings(minutes); 

lb_bmin->setT  oOefsuttQ ; 
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Ib_re*  ■  new  zComboBox(this,  ID_POS_RES,  4_res); 
lb jes->sddCherStrinfls<r»«olut!ori) ; 

lb_re#->8*tToOefauttO; 

local  ■  new  zRadk>Group<this,  ID_POS_LOCAL,  ID_POS_ZULU,  &_kxal); 
kxaJ->*«tNotifyCI»cked<thi8,  (NobfyProc)4C_dlg_Po* ; :  IbChanged) ; - 


showO; 

noodalO; 


int  C  <flg_Pos::lbChanged(zEvent  *ce) 

{ 

_month  »  to_monttv>aetectionO  + 1; 

_day  ■  lb_d»y->BalectionO ; 

_year  *  lb_year->selectionO  + 1993; 
switch  (.month) 

{ 

easel: 
case  3: 
case  5: 
case  7: 
case  8: 
case  10: 
case  12: 

{ 

Ibjlay-xesetO; 

lb_ttey->addCharStrings(days31); 
lb_day->setT  oOefauttO ; 
break; 

}; 

case  4: 
case  6: 
case  9: 
case  11: 

{ 

!b_day->resetO; 

lb_day->addCharStrings(days30); 
tb_day->setT oOefauttO ; 
break; 

) 

case  2: 

{ 

Ib_day-x»set0, 

if  ( float(_year  /  4)  ■»  (_year  /  4.0)  44 

!» (.year/  400.0)) 

{ 

lb  day->addCharStrings(days29); 

> 

else 

{ 

tt>_day->addCharStrings(days28); 


float(_year  /  400) 
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} 

•b_day-»setToOefaultO; 

> 

) 

> 

intC  cBfl_P<»::doOone(zEvent  *ce) 

{ 

storeOataO; 
if  (compietedO) 

{ 

fast_aigorithm  *aig  *  new  fastjrigorithm; 
location  *  ”  *; 

ib_desc->getEditT ext(_tocation); 
node  ‘desired  *  H-Hind(Jocatk>n); 
switch  (lb  res->seiectionO) 

( 

caseO: 

{ 

delta*  1; 
break; 

} 

case  1: 

{ 

delta  *5; 
break; 

} 

case  2: 

{ 

delta*  10; 
break; 

} 

case  3: 

( 

delta*  15; 
break; 

} 

} 

if  (desired) 

{ 

Jatmin  ■  desired->data->latmin; 
Jatdeg  *  desired->data->latdeg; 
_(onmin  *  desired->data->lonmin; 
Jondeg  *  desired->data->tondeg; 
~GMT  *  desired->data->GMT ; 
~DST  *dosired->data->DST; 

~E  *  desired->data->EW, 

N  *  desired->data->NS; 

> 

to  *  tondeg  +  lonmin/60.0; 
if  (_E)  to  **-1.0; 
f*  Jatdeg  + Jafmin/60; 
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if  (Jocai)  z  »  TRUE; 
else  z  *  FALSE; 

//rtn_data-»)o  ■  to; 

//rtn_data->f  *  f, 

to_month^getEditText(monthstr); 
tb_day->getEditT ext(daystr) ; 
lb_year->Qet£ditT  ext(yearstr); 

r  strcpy(lfo.l.data->afray{0],,,•*** S U N  &  MOON  POSITION  CHART **““); 
rtn_data->arrayfO]  *  strdup(temp); 
temp  *  NULL; 
stncat(temp,  location}; 
strcat(teinp,(_N ? ",  N*:",  S “)); 
itoa(_latdeg,  trash,  10); 
strcat(temp,  trash); 
strcat(temp, " "); 
gcvt(Jatmin,  5,  trash); 
strcat(temp,  trash); 

*tre«t(tB»np,(_E ? *,  E’:*,  W")); 
itoa(_londeg,  trash,  10); 

strcatftemp.  trash); 
strcat(temp. "  *); 

gcvt(_tonmin,  5,  trash); 
strcat(temp,  trash); 
strcpy(rtn_<Jata->array{1],tefnp); 
temp  «  monthstr, 
strcat(temp, "  *); 
strcat(temp,  daystr); 
strcat(temp,  *  *); 
strcat(temp,  yearstr); 
strcat(temp, "  Zulu  + "); 
gcvt(_GMT,  5,  trash); 
strcat(temp,  trash); 

8trcpy(rtn_data->arrayl2],temp); 

strcpy(rtn_data->array[5]."  Sun  Sun  Lux  Moon  Moon  %Moon  Lux’): 
strcpy(rtn_diita->array(7] .Time  Azimuth  Altitude  Ilium  Azimuth  Altitude  (Phase)  Ilium"); 

strcpy(ftn_data->array^j,* - *); 

//logic  for  producing  times 

for  (count  *  0;  count  <*60;  count++,  bmin  +=  delta) 

{ 

if  (_bmin  >*  60) 

{ 

_bmin  -=80; 

_bhour++; 

} 

h  «  _bhour  *  100  +  Jsmin; 

atg->tttum(to,  f,  _year+1993,  _montb+1,  _day+1,  z,  h,  saz,_sai,  sil,  maz,  mat,  mil,  mpr, 

_«D. 

if  (h>*  2400)  h-»  2400; 

sprintfftemp,  "%04.0f  %8.0f  %9.0f  %13.5f  %8.0f  %9.0f  %9.0f  %12.5f,  h,  _saz,  _sal,  _sil, 
_maz,  _mal,  _mpr,  jil); 
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strcpy(rtn  data->array(count+8],temp); 

} 


*/  > 
slHitdownO; 
return  1; 

} 


rPOS_CHART_DLG::POS_CHART_DLG(zRe«ld&  rid) :  zFormDialog(app->rootWindowO,rid) 

dispiay_array  *  naw  zComboBox(this,  POS_CHART_ARRAY); 
for  (int  count  *  0;  count  ■  60;  count++) 

{ 

display  arrey->add(arTaytcount][0]); 

} 

> 

V 
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FASTAL.CPP 


r  File  Name:  fastal.cpp 

r  Programmer  Michael  T.  Lester 

r  Created:  05  Nov  1993  Modified:  21  Feb  1994 


r  Description:  implementation  of  algorithms  from  Circular  171 
r  Compiler  Borland  C++  (DOS  IDE) 


•include  <math.h> 
Mndude  tsstal.h" 


Bdellne  sgn(arg)  (arg<0  ?  (-1) :  (1)) 

•define  dagfarg)  (floor(arg)  +  ((arg  -  floor(arg))*10)/6) 
•define  dms(arg)  (floor(arg)  ♦  6  *  (arg  -  floor(arg))/10) 
•define  neg56(-Sffi) 

•define  TRUE  1 
•define  FALSE  0 


void 

fa*t_algorithm::ilium( 


float 

LO. 

//Longitude,  degrees,  E-+,  W*- 

float 

F. 

// Latitude,  degrees,  N=+,  E— 

float 

IY. 

//Year  (####) 

int 

IM,  //Month  (01  - 12) 

int 

ID,  //Day  (01  -  31)  assumed  coned  for  calendar 

float 

z. 

//Time  format  0-Zuiu,  1-local  (zone) 

float 

H. 

//Hour,  24  hr  format,  zulu  or  local  as  above 

floats 

saz. 

//result  Sun  Azimuth 

floats 

sal. 

//result  Sun  Altitude 

floats 

sil. 

//result.  Sun  Illuminance 

floats 

maz. 

//result  Moon  Azimuth 

floats 

mat, 

//result  Moon  Altitude 

floats 

mil, 

//result.  Moon  Illuminance 

floats 

mpr. 

//result  Moon  Percentage  of  Full 

floats 

til 

//result,  Total  Illuminance 

X 

RD  »  57.29578; 

DR  -1/RD; 

CE  -0.91775: 

SE  -0.39715: 

A[0]  ■  -0.01454; 

AJ1J-  -0.010453; 

A(2]« -0.020791; 

API -0.00233; 


F  -  F  *  DR; 

C  -360: 

U«fabs(LO); 

SI»sin(F); 
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Cl  *  cos(F); 

J  *  367  *  IY  -  Hoor(7  *  (IY  +  fkxx((IM  ♦  9)  / 12))  /  4)  + 

floor(275 

*IM/9)  +  ID-730531; 

DT*0; 

if  (Z  **  0)  DT  » -LO  /  C; 

if  (Z  —  1)  DT  -  -<U  - 15  *  floor((U  ♦  7.5)  / 15))  /  C  *  *gn(LO); 

Z0  *  J  -0.5; 

E  « (dag(H / 100.0))/ 24 -DT-LO/ 360; 

D-ZO  +  E; 

TO  ■  280.46  +0.98565  *  D; 

T  *  TD  -  floorfTD  /  360)  *  360; 

if  (T  <  1®-500)  T*T  +  360; 

TD  *  357.5  +0.9856*0; 

G  *  (TD  -  floorfTD  /  360)  *  360)  *  DR; 

LS  =  (T  +  1 .91  *  tin(G))  *  DR; 

AS1  -  atan(CE  *  tan(LS))  *  RD; 

Y  -cosfLS); 

if  (Y  <  1e-500)  AS1  =  AS1  +  180; 

SD  =  SE  *  sinfLS); 

DS  *  asinfSD); 

T  *  T  - 180; 

T  *  T  +  360  *  E  +  LO; 

for  (int  N  ■  1;  N  <3;  N++K 
if(N-2K 

TD*  218.32 +  13.1764*0; 

V  *  TD  -  floorfTD  /  360)  *  360; 

if  (V  <  1e-500)  V  *  V  +  360; 

TD  « 134.96  +  13.06499  *  D; 

V  *  (TD  -  floorfTD  /  360)  *  360)  *  DR; 

TD  *93.27  +  13.22935*D; 

O  *  (TO  -  floorfTD  /  360)  *  360)  *  DR; 

TD  *235.7  +  24.3815  *D; 

W  *(TD- floorfTD/ 360) *380)* DR; 

SB  -  *in(Y); 

CB  *c«i(Y); 

X  **Jn(0); 

S  *co*<0); 

SO  **Jn<W); 

CD  *oo«(VV); 

V  *  V  +  (6.29-1.27*CD  +0.43  *CB)  *  SB  +  (.66  +  1.27  *CB)  * 

SO  -0.19  *  «in(G)  -023  *  X  *  S; 

V  * V*DR; 
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Y  ■  ((5.13  -0.17  *  CD)  *  X  ♦  (.56  *  SB  +0.17  *  SD)  *  S)  *  DR; 
SV  ■  *Jn(V); 

SB  «sln(Y); 

CB  ■  co*(Y); 

Q  ■CB*cc*(V); 

P  ■  CE*SV*CB-SE*f'fV 
SD  «SE*SV*CB  +  CE 
AS1  «  «tan(P  /  Q)  *  RD; 

If  (Q  <  0)  AS1  *  AS1  + 180; 

DS  -  asin(SD); 

) 

H  -T-AS1; 

CD  ■  cos(DS); 

CS  »  cos(H  *  DR); 

Q  *  SD  *  Cl  -  CD  *  SI  *  CS; 

P  ■  -CD  *  sin(H  *  DR); 

AZ»«tan(P/Q)*RD; 

if  (Q  <  1e-500)  AZ  ■  AZ  ♦  180; 
if  (AZ  <  10-500)  AZ  ■  AZ  ♦  360; 

AZ  *  floor(AZ  +0.5); 

H  *  a#in(SD  *  SI  +  CD  *  Cl  *  CS)  *  RD; 

Z  ■  H  *  DR' 

H  ■  H  -0.95  *  (N  -  1)  *  cos(H  *  DR); 

HA-H; 

if  (H  >■  (-5  /  6)K 

HA  -  H  + 1  /  (lan((H  +  8.59  /  (H  +  4.42))  *  DR))  /  60; 

} 

U  *  sin(HA  *  DR); 

X  ■753.8816; 

S  ■  ssln(X  *  cos(HA  *  DR)  /  (X  ♦  1)); 

M  ■  X  *  (coa(S)  -  U)  +  oos(S); 

M  -  «xp(-.21  *  M)  *  U  +0.0289  *  exp(-.042  *  M)  * 

(1  +  (HA  ♦  90)  *  U  /  57.29578); 

HA  -  ((floor(MM(HA)  +0.5))  *  sgn(HA)); 

if(N  —  1K 

IS1  « 133775  *M; 
mz  ■  AZ; 
sal  ■  HA; 
s8«IS1; 

) 

E  ■  acos(cos(V  -  LS)  *  CB); 
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P  «  0.892  *  exp<-3.343  /  (pow<  tan(E  /  2),  0.632)))  +  0.0344  * 
(«n(E)  -  E  *  cos(E)); 

P  -  0.418  *P/(1 -0.005  *cos(E) -0.03  *sin(Z)); 

IL  «P*M; 

IS1  «  IS1  +  IL  +0.0005; 


maz  -  AZ; 
mal  »  HA; 
mil  *  IL; 

IL  «  floor(50  *  (1  -  cos(E))  +0.5); 

mpr«lL; 

til  ■  mil  ♦  sU; 

} 

} 

) 


void 

fsst_aigor1thm::event(  float  LO. 

float  F, 
float  IY, 
int 
bit 

float  Z, 
float 

float&  sr, 
floats  sst, 
floats  st 
floats  sa, 
floats  mr, 
floats  ms, 
floats  mt, 
floats  ma, 
floats  ac, 
floats  an, 
floats  pc, 
floats  pn, 
floats  dl 
) 

{ 

RD  *  57.29578; 

DR  *  1  /  RD; 

CE  -0.91775; 

SE  -0.39715; 


//Longitude,  degrees,  E-+,  W*- 

//Latitude,  degrees,  N-+,  S«- 
// Year  (####) 

IM,  //Month  (01  -  12) 

ID,  //Day  (01  -  31)  assumed  correct  for  calendar 
//Time  format,  0-Zulu,  1-local  (zone) 

H,  //hours  from  zulu 

//result,  Sun  Rise 

//result.  Sun  Set  Time 

//result.  Time  of  Sun  Meridian  Passage 

//result,  Altitude  of  Sun  Meridian  Passage 

//result  Moon  Rise 

//resud,  Moon  Set 

//result  Time  of  Moon  Meridian  Passage 
//resuft.  Altitude  of  Moon  Meridian  Passage 
//result  Morning  Civil  Twflight 
//result  Morning  Nautical  Twilight 
//result  Evening  Civil  Twflight 
//result  Evening  Nautical  Twflight 
//result  length  of  daylight 


AflJJ  -  -0.01454, 

AJ1]«  -0.10453; 

A{2]  - -0.20791; 

A(3]  -  0.00233; 

Int  exjtjnow  -  FALSE,  exit_n_loop  -  FALSE; 


F  « F*DR; 

C  -360; 

U  >  fabs(LO); 


Si-ain(F); 

Cl  *co o(F); 

J  » 387  *  IY - floor(7  *  (IY  +  lloor((tM  ♦  9) / 12)) /4)  + 

floor(275 

*  IM  /  9)  ♦  ID  -  730531; 

DT-0; 

If  (!Z)  DT  ■  -LO  /  C; 

If  (Z  -»  1)  DT  ■  -<U  - 15  *  lloor((U  ♦  7.5)  / 15))  /  C  *  *gn(LO); 

2D  *  J  -0.5; 

fac( int  L  ■  1;  L  <■  4;  L++X 
if  (L  «  4)  C- 347.81; 
lf((L-1)||(L-=4)K 
M-0.5  +  DT; 

K-1; 

whie(1){ 

«xit_now  *  FALSE; 

M-»DT; 

E-M-LO/360; 

D-ZD  +  E; 

if  (fabs(E)  >■  1)  E  -*  sgn(E); 

TD  «  280.46  ♦  .08565  *  D; 

T  «  TD  -  lloorCTD  /  360)  •  360; 
if  (T  <  0)  T  ♦«  360; 

TD -357.5  +  . 0856  *D; 

G  *  (TD  -  floor(TD  /  360}  *  380)  *  DR; 

LS  *  (T  +  1.91  *  sin(G))  *  OR; 

AS1  ■  atan(CE  *  tan(LS))  *  RD; 

Y«co*(LS); 

if(Y<0)AS1+»180; 

SD  •  SE  *  dn(L8); 

DS  ■  asin(SD); 

T--180; 

if(L~4M 

TD- 218.32 +  13.1784*0; 

V  »  TD  -  lloorCTD  /  360)  *  380; 
if(V<0)V*V  +  360; 

TD  *  134.08  ♦  13.06490  *  D; 

V  » (TD  -  floof(TD  /  380)  *  360)  *  DR; 

TD  «  03.27  +  1322035  *  D; 

O  -  (TD  -  floor(TD  /  360)  *  360)  *  DR; 

TD- 235.7  +  24.3815  *D; 

W  -  (TD  -  floocfTD  /  380)  *  360)  *  DR; 

SB-«in(Y); 

CB-cos(Y); 

X  ■  sln(0); 

S  ■  cot(0); 

SD-tin(W); 

CD  —  co*(W); 

V  (629  - 1.27  *  CD  +  .43  *  CB)  *  SB  ♦  (.88  +  1.27  *  CB)  * 

SD  -  .10  *  sin(G)  -  23  *  X  *  S; 

V*-DR; 
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Y  ■  ((5.13  -  .17  *  CD)  *  X  +  (.56  *  SB  +  .17  *  SD)  *  S)  *  DR 
SV  «  «in(V); 

SB  ■  *jn(Y); 

CB  ■  cos(Y); 

Q  *  CB  *  cos(V); 

P  -  CE  *  SV  *  CB  -  SE  *  SB; 

SD  *  SE  *  SV  *  CB  ♦  CE  *  SB; 

AS1  *  «tan(P  /  Q)  *  RD; 
if  (Q  <  0)  AS1  180; 

DS  ■  Min(SD); 

} 

T  LO  +  360  *  E; 

T  -»  floorfT  /  360)  *  360; 

U  »T  -AS1; 

if  (tabs(U)  >  180)  U  -«  360  *  sgn(U); 

Uf»C; 

M+-DT-U; 
if  (L  <  4)  K-m-; 
switch  (KH 

easel: 
case  3: 

case5:{ 

K++; 

break; 


case2:{ 

if(  (M>«0)  SA  (M  <  1)X 

exit_now  »  TRUE; 

} 

eise{ 

M  -»  8gn(M); 

K++; 

} 

break; 

} 

case4:{ 

»(M>«0K 

exit_now  ■  TRUE; 

h  »l< 

Drew, 

> 

M  -»  sgn(M); 

K++; 

Lm&Li 

Diwolv, 


case6:{ 

exk_now  »  TRUE; 
break; 

> 

) //switch 
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if  (ttdfjiow)  break; 

}// white  loop 

H  «  asin(coe(F  -  DS»  *  RO; 
if  (L  4)  H  -■  0.95  *  cos(H); 

HA-H; 

if(H»(neg56>) 

HA»H  +  1/(tan((H  +  8.59/(H  +  4.42))*DR))/60; 
}//if((L~1)||(L~4) 

H  «  (AIL-1]  -  SI  •  SO)  /  (Cl  *  cos(DS)); 
if  (fabs(H)  >  1)  H  »  1.5; 
else  H  «  ecos(H)  *  RD  /  C; 

B{0]  *  M  -  H; 

B{1]  *  M  +  H; 
for(int  I  ■  0;  l<*1;  I++H 
K»2*(l  +  1)-3; 
fbr(intN«1;N<»6;  N++M 
exit_n  loop  *  FALSE; 

B(l]  -*  DT; 

E-BP1-LO/30O; 

D-ZO  +  E; 

if  (febs(E)  >«  1)  E  -=  sgn(E); 

TD  «  280.46  +  .98565  *  D; 

T  «  TD  -  fkxxfTD  /  360)  *  360; 
if(T<0)T+»360; 

TD  «  357.5  +  . 9656  *D; 

G  -  (TD  -  fkxxfTD  /  360)  *  360)  *  DR; 

LS  *  (T  +  1.91  *  sin(G))  *  DR; 

AS1  -  atan(CE  *  tan(LS))  *  RD; 

Y«cos(LS): 

if  (Y  <  0)  AS1  ♦=  180; 

SD  -  SE  *  sin(LS); 

DS  »  asin(SD); 

T-»  180; 
if(L-4K 

TD- 218.32  + 13.1784  *D; 

V  »  TD  -  fkxxfTD  /  360)  *  360; 
if  (V  <  0)  V  ♦«  360; 

TD  »  134.96  +  13.06499  *  D; 

V  «  (TD  -  floor(TD  /  360)  *  360)  *  DR; 

TD  «  93.27  +  13.22935  *  D; 

O  *  (TD  -  fkxxfTD  /  360)  *  360)  *  DR; 

TD- 235.7  +  24.3815*D; 

W  -  (TD  -  floor(TD  /  360)  *  360)  *  DR; 

SB  *  sin(Y); 

CB  -  co*(Y); 

X  >  sin(O); 

S  -  oos(0); 

SD-sin(W); 

CD  —  cos(W); 

V  +-  (6.29  - 127  *  CD  +  .43  *  CB)  *  SB  +  (.66  +  1.27  *  CB)  * 

SD  -  .19  *  sin(G)  -  .23  *  X  *  S; 

V*-  DR; 
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Y  ■  ((5.13  -  .17  *  CD)  *X  +  (.56  *  SB  ♦  .17  *  SD)  *  S)  *  DR 
SV  ■  «in(V); 

SB  ■  *Jn(Y); 

CB«cos(Y); 

Q  ■  CB  *  cos/W 
P  *  CE  *  SV  *  CB  -  SE  *  SB; 

SD  ■  SE  *  SV  *  CB  +  CE  *  SB; 

AS1  ■  atan(P  /  Q)  *  RD; 
if  (0  <  0)  AS1  180; 

DS  »  astn(SD); 

}  /flf  (L  “  4) 

T+«LO  +  360*E; 

T-«  floorCT/ 360)  *360; 

U  *T  -  AS1; 

if  (fabs(U)  >  180)  U  -»  360  *  sgn(U); 

U/»C; 

H  *  (AM)  -  SI  *  SD)  /  (Cl  *  cos(DS)); 
if  (hbi(H)  >  1)  H  ■  1.5; 
else  H  *  acos(H)  *  RD  /  C; 

Bp]+*K*H-U  +  DT; 
if  (L  <  4)  N++; 
switch  (N){ 
case  1: 
case  3: 
case5:{ 


case  2:{; 

if  ( (BPl  >*  0)  &&  (BP]  <  1)X 
exit_n_loop  *  TRUE; 

} 

else  Bfl]  -»  sgn(BPD; 
break; 

> 

case  4:{ 

if  (BPl  >«  OX 

exit  n  loop  *  TRUE; 

> 

break; 

} 

case6:{ 

extt_n_loop  *  TRUE; 
break; 

} 

) //switch 

if  (exit_n_loop)  break; 

}//N  for  loop 
)  //I  for  loop 
switch  (LX 
case  1:{ 
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R  >  floor(  100  *  dnw(M  *  24)  +  .5); 
st-R; 

HA  ■  flooft  tsbs(HA)  +  .5)  *  sgn(HA); 

«*  *  HA; 

for  (int  I  ■  0;  I  <■  1;  I++H 

R  -  float  100  *  dms(B{1]  *  24)  +  .5); 
If  ( (R  >»  4800)  H  (R  <  0) )  break; 

If  (HK 
sr»R; 
continue; 

) 

else  { 
sst>R; 

} 

R  ■  Bfl]  -  BflJJ; 

If  (R  <  0)  R++; 

R  « floor(  100  *  dms(R  •  24)  +  .5); 
di-R; 

}  ll\  for  loop 
break; 

}// easel 
case2:{ 

for  (kit  I  *  0;  I  <*  1 ;  I++X 

R  ■  float  100  *  drr®<BP]  *  24)  ♦  .5); 
if  ( (R  >*  4800)  ||  (R  <  0) )  break; 

If  00 

ae*R; 

else 

pc»R; 

)// for  loop 
break; 

yi cate  2 

owe  3:  { 

for  (int  I  ■  0;  I  <*  1 ;  !+-*■){ 

R  ■  float  100  *  dms(B{l]  *  24)  +  .5); 
if  ( (R>«  4800)  ||  (R  <  0) )  break; 

If  (ID 

an*R; 

else 

pn*R; 

}// for  loop 
break; 

}//case3 

case  4:  { 

R  *  floort  100  *  dms(M  •  24)  +  .5); 
mt«R; 

HA  ■  floort  fabe(HA)  +  .5)  *  sgn(HA); 
ma  ■  HA; 

for  (int  I  ■  0;  I  <*  1;  I++K 

R  ■  floort  100  *  dms(B{l]  *  24)  +  .5); 
if  ( (R  >■  4800)  ||  (R  <  0) )  break; 
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W  (H) 

mr»R; 

else 

ms*R; 
}// for  loop 
}//case4 
>// Switch 
>//Lloop 
}//main 


r 

char*  fa«t_algorithtn::calendarOnt  b_day,  int  b_mo,  int  b_yr, 

int  e_day,  Int  e_mo,  int  e_yr, 
float  lat,  float  Ion,  int  Z, 
float  thrash,  int  dettaX 


//  int  days;  //>  of  days  data  is  requested  for 

intJB.JE;  //Jufian  for  Begin  and  End  of  requested  period  respectively 
char  ‘matrix;  //  pointer  to  the  calendar  matrix 

//  compute  #  of  days  requested 

JB  *  367  *  b_yr -  <foor(7  *  (b_yr  +  floor((b_mo  +  9)  / 1 2))  /  4)  + 

floor(27S * b  mo/9)  + 

b_day -730531; 

JE  *  367  *  e_yr  -  floor(7  *  (e_yr  +  floor((e_mo  +  9)  / 12))  /  4)  ♦ 

floor(275  *  e_mo  /  9)  + 

e^day- 730531; 

const  int  days  *  JE  -  JB  + 11; 

tl  allocate  space  for  array  and  fin  in  header  and  fooler 
matrix  *  new  charf132]{80]; 

//  matrixf47H0]  ■  'LIGHT  LEVEL  PLANNING  CALENDAR*; 

//  forflnt  coonM);  count  <*131;  count++)  matrixtcount]{4]  ■  *_*; 


retum(matrix); 

} 

7 
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LL.CPP 


// 

//H.cpp 

// 

// routines  for  N.h,  linked  list  of  location  data 
// 

Mndudte  K.h' 

Mndud*  "dialogs.h" 
ffndude  <string.h> 

//types  of  (Has  used  in  the  Save.as  dialog 
char  *typesQ  « 

{ 

•Data  Files  <*.daty\  ~.dat", 

"AM  Files  (*.*)".  **•*". 

0,0 

>; 

//Initialize  a  new  node  "f  the  linked  list  of  locations 

node::nodeO 

{ 

data -NULL; 
next «  NULL; 

} 

//Destructor  for  a  node  of  the  linked  list  of  locations 

node::~node0 

{ 

-i  — >— A—  -l— a — 

oem  data, 

j 

//Constructor  for  the  linked  list  of  locations 
•ocaoon*_Kst:  ,»ocauons_tt3tu 
{ 

datafile  *  "moonHte.dat"; 
list  dirty -FALSE; 
head -NULL; 

} 

locations  Utti  deirO 

{ 

if  (Kst_dhty) 

{ 

zMessage  *msg  «  new  zMessage(app->rooWVIndowO.  "Locations  have  ChangedIVnSawe 
Changes?”, 

"WARNING", 

MB  YESNOCANCEL  |  MB  ICONSTOP); 

if  (msg->vakieO  ”  IDCANCEL) 

{ 

return  (0); 

> 
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if  (msg->valueO  **  (DYES) 

{ 

**v*0; 

} 

} 

node  temp,  tempi; 
temp  ■  head; 
head  *  NULL; 
white  (temp  l>  NULL) 

{ 

tempi  *  temp->next; 
delete  temp; 
temp  ■tempi; 

} 

list_dirty  ■  FALSE; 

return  (1);  //return  ok. 

} 


//temp  pointers 
//point  to  first  node 

//dear  head  pointer 
//step  through  list  deleting  each  node 

//the  node  deletes  the  data  portion 


//set  list  as  clean 


locations  Bstropen  dialog(zWindow  *pwin) 

{ 

zFHeOpenForm  ts  =  new  zFHeOpenForm(app->rodWlndowO.  'Open  File", 

(char  *)  datafile,  types); 

if  (fo'>comptetedO)  //if  dialog  was  completed  ok 

{ 

datafile  ■  fs->name();  //use  the  new  file  name 

openO;  //  and  open  that  file. 

} 

return  (1); 

} 

locations Jist::openO 

{ 

clearO;  //dear  the  old  list,  to  check  if  dean 

FILE  fp; 
node  "temp; 
int  result; 

fp  ■  fbperKdatafUe,  *rb“);  //open  the  «e 
if  (tfp)  retum(O);  //open  fails,  report  same 

whHe(1)  //if  opened  ok,  continue 

{ 

temp  ■  new  node; 
temp->data  ■  new  tocatton_struct; 

result  ■  fread(temp->data,  sizeofOocatk>n_struct),  1 ,  fp);  //read  data 
if  (result  *■  0)  /Af  date  read  ttted 

{  II  delete  temp  node,  and  return 

delete  temp; 


} 

temp->next  ■  head; 
head  ■temp; 

} 

if  (fdose(fp)  !■  0)  retum(O);  II if  dose  Ms,  return  failed 
Hst_dirty  -  FALSE;  //set  list  to  dean 
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ratumfl); 

) 


locations  Hst:saveO 

{ 

node ‘tamp; 

FILE  Ip; 

fp  «  fopen(datafile,  "wb"); 
if  (Ifp)  return  (0); 
temp  "head; 
while  (temp  I-  NULL) 

{ 

fwrita(temp->data,  sizeof(location_struct),  1.  fp); 
temp  ■  temp->next; 

} 

*dose(fp); 

Usf_cHrty  -  FALSE; 
return  (1); 

} 


k>cations..li8t::saveas(zWindow  "pwin) 

{ 

zFileSaveAsForm  *fs  *  new  zFiteSaveAsFcxm(app->rootWindowO,  "Save  As”, 

(char  *)  datafile,  types); 

if  (fs->compietedO) 

{ 

datafile  ■  f*->nameO; 
saveO; 

} 

return  (1); 

} 

locations  Jist::add  record  (location  struct  "temp  location) 

{ 

node  *temp_node,  temp; 
temp_node  »  new  node; 

//point  node  to  data  structure  and  link  node  into  list 
temp_node->data  *  temp_location; 
temp_node~>next  =  head; 
head«  temp  node; 
list_{firty  ■  TRUE; 
return  (1); 

} 

locations  Bst:add  dMog(zWindow  "pwin,  locationsjist  "*) 

{ 

C  dislocations  "digjocs  ■  new  C_dlg_locations(H,  pwin, 

zResid(DIALOG_LOCAT10NS)); 

W(<lBLlocs^complatedO) 

{ 

//make  some  temporary  pointers 


103 


tocatkxi_«truct  *tempJocatk>n; 

//make  a  new  node  and  new  data  structure 
tempjocation  *  new  locetion_«truct; 

//move  data  from  casing  procedure  to  data  structure 
strcpy(tampJocation->desc,  cflfl_loc»->locationO); 
tempJocatkxv>latdeg  ®  dtg_tocs->_latdefl; 

tempJocatkxv>latmin  ®  dlgJocs->Jatm»n; 

temp_locatkxv>NS  «  dtfliJocs->_N  -  305; 

tempJocatkxv»londeg  «  dlg_loca->Jond#g; 
tempJocatkxv>k>nmin  *  dlgJocs->Jonmin; 

tempJocatk>n->EW  ■  dlgJoc*->_E  -  309; 

tempJocatio»v>GMT  ■  diflJocs->_GMT; 
temp Jocatkxv>  DST  «  d>fl_locs->_DST; 

add_record(temp_locat)on); 

delete  dlgjocs; 

} 

//if  alt  was  successful,  return  true 
retum(TRUE); 

} 

locations Jist:  :edtt_diatog(zV\rtndow  *pwin,  locationsjist  *11) 

C_<flgJoc_edit  *dlfl_edit  ■  new  C_digJoc_edit(H,  pwin,  zResld(EDIT_LOCATION),  head); 

~  //make  some  temporary  pointers 
node  temp  -  head; 
if  (dlg_edit->comp!etedO) 

while  ((tamp  !«  NULL)  &&  (temp->data-»desc  l«  dla_edit->_location)) 

{ 

temp  ■  temp->next; 

} 

if  (temp !®  NULL) 

{ 

strcpy(temp->data->desc,  cflg_edK->k>cationO); 
temp->data->latdeg  ®  «flg_edit->_latdeg; 

temp->data->latmin  ®  dJg_edit->Jatmin; 

temp->data->NS  ■  dlg_edit->_N  -  505; 

temp->data->londeg  » (flg_edit->_londeg; 

temp->data->lonmin  « d1g_edit->Jonmin; 

temp->data->EW  ®  dlg_edit->_E  -  509; 

temp->data->GMT  ®  dlg_edit->_GMT  ; 

temp->data->DST  *  dlg_edit->_DST; 

Hst_dirty  *  TRUE; 

) 

} 

delete  dlg_edit; 

m  all  was  successful,  return  true 
retum(TRUE); 

} 


WPU  :  -  -•-■ 


locationsjist:  :deieta jliak>fl<zV\An<kw  *pwtn,  locations Jist  *11) 

CjdlgJoc_del  *dlQ_de)  ■  new  C_dlg_loc_dei(H,  pwin,  zResld(L0CAT10N_DELETE),  head); 

~  //tmake  some  temporary  pointers 
node  *temp,  *temp1 ; 
temp  >head; 
tempi  ■  temp; 
if  (difl_det->compietedO) 

{ 

while  ((temp  !*  NULL)  &&  (temp->data->desc  !*  dla_dei-> .location)) 

{ 

tempi « temp; 
temp  « temp->next; 

} 

if  (temp !- NULL) 

{ 

if  (temp  heed) 

{ 

head  » temp->next; 

} 

else 

( 

tempi ->next « temp->next; 

} 

delete  temp; 
list_dirty  ■  TRUE; 

} 

} 

delete  dlgLdei; 

//if  aril  was  successful,  return  true 
retum(TRUE); 

} 

node*  locations Jiat  rfind(zString  &desc) 

{ 

node  *temp, 
temp  *  head; 
while  (temp  !*  NULL) 

{ 

if  (temp->data->desc  ■*  desc) 

{ 

return  (temp); 

> 

temp  ■  temp->next; 

} 

return  (NULL); 

} 

char* 

locations Jist:  :get_nextO 

{ 

node  *oid  « temp _ptr 
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If  (temp_ptr)  temp _ptr  « temp_ptr->next; 
if  (old)  return  (oid-xfata-xtesc); 
else  return  (NULL); 

} 
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LOCATIONS. CPP 


dlncluda<i>dio.h> 

jlni  L.rf,  rakilti  kv 

mnciuoe  r‘MOno.n> 
#indude<io8trsain.h> 
flndud*  nii  in  j  h> 

In  r*tinn  k" 

Wicuoi  vocsoori.n 

node::nodeO 

{ 

next*  NULL; 

} 

locations:  :locationsO 

{ 

head  -  NULL; 
f_name  * "zzzz.dat”; 


kit 

locations:  :addO 

{ 

node  "temp; 

char  ‘string  ■  "string  hare”; 
float  let- 123.45.  Ing  -  678.90; 
float  GMT  »  8.0; 
kit  DST  ■  1,  lock; 

for  (kit  x  ■  0;  x<3;  x++) 

{ 

cout « "\nentar  a  number..."; 
cin  » lock; 
tamp  ■  new  node; 

stmcpy(temp-><lata.desc,  string,  OESC.LENGTH); 

//temp->data.desc  ■  string; 

lornp^viiii.iiuuXM  *  mi, 

rnnp->ara.iongmjae  *  mg, 

temp->data.GMT  ■  GMT; 

temp-xMa.OST  ■  DST; 

temp^data-lock  ■  lock; 

temp->next  ■  head; 

head  ■temp; 

) 

ratum(1); 


kit 

tocatfons::saveO 

< 

FILE  *fp; 

— lUmaii 

noo® 
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fp  ■  fopen(f_neme,  *wb*); 

If  OW  rstum(0); 
tamp  »  hMd; 
wNto  (tamp  f«  NULL) 

{ 

fwr1ta<&tamp-xtata.  sJzeoffSJocatton), 1,  fp); 
tamp  -  tamp->next; 

} 

if  (fck)M(fp)  !■  0)  retum(0); 
retum(1); 


M 

tocatfonr'IoadO 

{ 

FILE  fp; 
iMXta*tamp; 
int  result; 

fp  ■  fopen(f  name,  ’rt>*); 

ifOfp)rtaum(0); 

wNta(1) 

{ 

temp  *  now  node; 

mutt  ■  fteadf&tamp^data,  »izeof(SJocadon),  1,  fp); 
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if  (result  ■■<)) 

{ 

*  - - - 

« - * 

DMK, 


} 

tamp-xiext  ■  head; 
head  *  tamp; 

} 

if  (fdoee(fp)  i«  0)  retum(0); 
ratumfl); 
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MENUFRAM.CPP 


// 

/Smanuframcpp 

// 

vmouoo  mmuwn.n 

ManuFrama: :ManuFrama(zWlndow*  paranUSizar*  *iz,  DWORD  winStyte,  const  char* 
tWa)3AppFrama(parant,«fe,w<nSty<a.titla)  { 

manu(now  zManufthis,  zRasld(MENU _M*  *N))); 

manu0^aatCommand(lhia,(CommandProc)&ManuFra>na::doExlt,ID_MENU_FILEEXrT); 
manuO->aatCommand(thit,(CommandProc)&ManuFrama::AddLocaMon.lD_MENU_LC)CS  ADD); 

) 

ManuFrama::-  -ManuFramaO  { 

NULL; 

) 

M 

ManuF  rama. :  doExit(zCommandE  vt  *ca) 

{ 

zMaataga  roaaa(app*fOOBNIndow0."  Exit  MOONLrrEr,”  MBJ3KCANCEL), 

if  (mass.isOkO)  app-»qoitO: 

ratuml; 

} 

ManuFrama::AddLocation(zCammandEvt  *ca) 

{ 

R->«M(Ms); 

} 

ManuFrama:  :command(zCommandEvt  *ca)  { 

tp->daarnadO: 
tp-xnovaTo(0,0); 
ratum  1; 

} 
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MOONUTE.CPP 


//  MOONUTE.cpp 

It 

// 

•indude  <at(ttb.h> 
vrkxxn  txnpsnow.n 
Anduds ’Zapp.hpp’ 
micrjoo  oniwi.n 
finduda'l.h’ 

•Indude  "dialogs  h* 

•indude  "routines,  h" 

locations  Mst  "I  *  new  iocattons_Nst; 

date  MenuFrame :  pubic  zAppFrame{ 

private: 

BmpShowPane  "bmpPana; 
zTextPane*  tp; 

public: 

MenuFrama(zWlndow*  parentzSizer*  siz, 

DWORD 

winStyto, const  char*  tide); 

•ManuFramaO: 

virtual  int  command(zCommandEvt  *); 
int  doExtt(zCommandEvt  *); 
int  AddLocation(zCornmandEvt  *); 
int  DeieteLocation(zCornrnandEvt  *); 
int  EdNLocation(zCoininandEvt  *): 
int  FleSave(zConvnandEvt "); 
int  FNaOpanOcCommandEvt  *); 
int  FleNaw(zCornmand£vt  *): 
int  RteSavaAsCzCommanCEvt  *); 
int  SpolDate(zCoinmandEvt  *); 
int  Evant(zContmandEvt  *); 
int  Poe»on(zCommandEvt  *); 
int  MtyzEvant  *); 
doOkQ; 


ManuFrama::ManuFrame<zVMndow*  parentzSizer*  dz, DWORD  winStyie.  const  char* 
tWa)2AppFrama(paiant.8te,winStyia,tWe)  { 

btnpPana  ■  new  BmpShowPane(this,  new  zSizeWIthParent); 

bmpPana  >aho*0; 

FILET* 

fp  •tbponfmoonHte.bnv'.T);  //open  the  We 
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{ 

fcto— (fr); 

bmpPane^tptayCnroonlite.bmp’');  //open  ok,  display  bmp 

} 

seticon<new  zk»n(zReald(ICON_1))); 
menu(new  zMeou<this,  zResld(MENU_MA!N))); 

rnenu0^setCommand(thi8,(CommandProc)4MenuFrame::doExjUD_MENU_FILEEXrr); 

menu()->setCommand{th«s,(CommandProc)&MenuFrafrte::AddLocat}on,ID_MENU_LC)CS_ADD); 

menu(>->setConimand<th<s,(CommandProc)AMenciFrame.:EditLocation,ID_MENU_LOCS_EDIT), 

manuO* 

>selComfnand(thts,(CofnmandProc)&Menuf:rame::DeleteLocatkxi,ID_MENU_LOCS_DEL£TE); 
menu()->satCommand(this, (Command  Proc)AMenuFrame::File  Save, ID_MENU_FILE  SAVE); 
manuO-»S6lCofninand(tWs,(CommandProc)4MenuFrwne::FHaOpen,ID_MENU_FILEOPEN); 
menuO->MtCofnnand(this,(ConimandProc)&MenuFrame::FileNew,ID_MENU_FILENEW); 
menuO->setCommand(tf>ls, (Command  Proc)&MenuFrame::nieSaveAs,ID_MENU_FILESAVEAS); 
manuO->setConwnand(this,(ComrnandProc)&MenuFrwne:  :Spotf)ata ,  lD_MENU_SPOTD AT  A) ; 
meouO->setCommand(this,(CommandProc)&MenuFrame::Event,ID_MENU_DAILYEVENTS); 
menuO-»seCommand(thls,(CommandProc)&MeriuFrafne::Position,ID_MENU_POS!TION); 

} 

MenuFrame::~MenuFrameO  { 

NULL; 

} 

int 

MenuFrame::doExit(zComnnandEvt  *ce) 

{ 

if  (U->peekJist_dirtyO) 

zMessaoe  *msg  »  new  zMai»age(this,  locations  have  ChangedIVnSave  Changes?*, 

-WARNING", 

MB.YESNO  |  MBJCONSTOP); 

if  (msQ->valueO  —  IDYES) 

{ 

H->saveO; 

} 

} 

«PP-xMtO; 

} 

MenuFrame:  :AddLocatk>n<zComrnandEvt  *ce) 

{ 

n->add_dialog(this,  II); 

) 

MenuFrame::EditLocation(zComiT)andEvt  *ce) 

{ 

i->edit_diaiog{this,  I); 

) 

MenuFrame::DeleteLocation(zCommandEvt  *ce) 

{ 


N->deMe_diaiog(tNs,  I); 


} 


MenuFronwr.FileSaveCzComnandEvt  *oe) 

{ 

M->seveO; 

} 

MenuFrsnw::Flk»SaveA»(zCommandEvt  *ce) 

{ 

R->uveM<tNs); 

) 

MerHjfrwne::FUeOpen(zCommandEvt  *ce) 

{ 

N->open_dMog(this); 

> 

MenuFr*rrw::FUeNew(zCorronendEvt  *ce) 

{ 

R-xdeerO; 

retum(1); 

> 

MenuFrame::SpotiD*ta(zCommandEvt  *ce) 

{ 

routines  ’engine  ■  new  routines(H); 

engkw->spoMataO; 

delete  engine; 

retum(1); 

} 

MenuFrame::Event(zCornmandEvt  *ce) 

{ 

routines  ’engine  *  new  routinesOO; 

engine->eventO; 

delete  engine: 

retum(1); 

} 

MenuFrame:;Pos(tion(zCommandEvt  *ce) 

{ 

routines  ’engine  ■  new  routmesfll); 

engine->positionO; 

delete  engine* 

rotum(1); 

} 

MenuFreme:  :oommsnd(zCofnfnsndEvt  *ce)  { 

tp->desffiectO; 

tp->moveTo(0,0); 
return  1; 

> 
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M 

MenuFrame::kflKzEvent  *ev) 

{ 

return  ( i  >dee rp ); 

} 

void  zApp::mainQ  { 

MenuFrwne  *mainVMid«new  MenuFrame(0,new  zSizertlO, 10, 625,520), zSTDFRAME.'MCKWLfTE'); 
if(!(ll->op*nO)) 

zMessege  “meg  *  new  zMessage(app->rootWindowO.  'MOONLITE.dat  not  foundAnNo  locations 

loaded”, 

•WARNING*, 

MB  OK  |  MBJCONSTOP); 

} 

3<>0; 

delete  malnWnd; 

} 
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ROUTINES. CPP 


// 

U  routines. cpp 

// 

#ndude<aUoc.h> 
findude  ‘routtnes.h* 
ffndude  *dMogs.h* 

♦include  "H.h* 

rouilnes::foutine*(1oc*rtions  list  *HstJn) 

{ 

U  -  Hstjn; 

} 


routines:  :spotdataO 

C_dtg_spotdata  *«»a_spot  ■  new  C_dlfi_spotdata  (II ,  zResld(SPOT_DETAIL)); 

(Mete  dlg_spot; 

} 

routines::eventO 

{ 

C_dla_Event  *dlg_event  *  new  C_dl&_Event(ll,  zResld(EVENTS)); 
delete  dtg_event; 

} 

routines::positionO 

{ 

C_dlg_Pos  *poe_get «  new  C_dtg_Pos(li,  zResld(POSITION)); 
doloto  pos  net 

//  POS_CHART_DLG  *pos_chart ■  new  POS_CHART_DLG(zReald(Positk>n_Chart)); 
//  delete  pos_chart; 

} 
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